DIM 2037
TrimDef
ExecuteProcessSafe
WEB_MetaContentType
DEMO_TESTBENCH

1. Главными достижениями данного выпуска являются: обновление DIM и его библиотек; обновление стандартной библиотеки DaqPascal.
   
   
2. DIM обновлен до актуальной версии 20.37. В этой версии исправлены некоторые ошибки (проявляющиеся при очень большой нагрузке). В версии для Linux добавлена компиляция бинарных файлов (benchmarkClient/Server), ранее не включенных в сборку. Также добавлен демо клиент/сервер на языке C, работающий с очередью сообщений.
   
   
3. Обновлена стандартная библиотека DaqPascal. В нее добавлены функции:
   TrimDef(s,def) - обрезание строки (s) со значением по умолчанию (def),
   ExecuteProcessSafe(cmd,arg,opt,timeout) - выполнение команды (вызов процесса) с ожиданием результата,
   WEB_MetaContentType(Data) - задание мета-тега типа и кодировки HTML.
   Данные функции были созданы в процессе перевода Crw32 под Linux и добавлены для того, чтобы не накапливались несовместимости кода старой и новой версии пакета.
   Также сделаны внутренние изменения кода для синхронизации версий с новым пакетом. Эти изменения носят (в основном) косметический характер (например замена LineEnding на EOL, добавление AdaptFileName), и призваны сохранить единство кодовой базы.
   
   
4. В демо конфигурации DEMO_TESTBENCH добавлен @Test 20 для проверки работы операций и функций со специальными значениями NAN, INF. Причиной добавления тестов является обнаруженная Н.Гуриным некорректность работы некоторых операций с NAN. Будем постепенно исправлять, с помощью этого теста.
   
   По факту, в Crw32 ошибок операций с NAN много. В новой версии пакета их не обнаружено.
   
   
5. Добавлены новые команды и опции в Главной Консоли.

   @voice -l       - список звуков в виде таблицы
   @voice -f       - список звуков с путями файлов
   @env -l         - список переменных окружения
   @env -l CRW     - список переменных окружения, содержащих шаблон
   @log -m 1       - режим ведения журнала (0/1/2=silent/echo/debug.out)
   @log message    - занести в журнал сообщение в соответствии с режимом
              

   
   
   

ivec_init
ivec_free
ivec_get
ivec_set
ivec_length
ivec_setlength
rvec_init
rvec_free
rvec_get
rvec_set
rvec_length
rvec_setlength
RunSysCommand
RunSysCommandAsText
DEMO_TESTBENCH

1. Данный выпуск посвящен библиотеке векторов (динамических массивов), а также команд (операционной системы).
   
   
2. Добавлена группа функций для работы с векторами, т.е. динамическими массивами.
   Это функции модуля StdVector: ivec_init, ivec_ftee, ivec_get, ivec_set, ivec_length, ivec_setlength, rvec_init, rvec_ftee, rvec_get, rvec_set, rvec_length, rvec_setlength, для типа i = Integer и r = Real.
   
   Для использования функций в программу рекомендуется включить библиотеку типов _typ_StdLibrary, т.к. в ней определен тип TVector (библиотека уже входит в шаблон стандартной программы):

   program demo;
    ...
   type
    {------------------------------}{ Declare uses program types:      }
    {$I _typ_StdLibrary}            { Include all Standard types,      }
    {------------------------------}{ And add User defined types:      }
    ...
   var
    iv,rv:TVector;
    ...
    procedure ClearApplication;
    begin
     iv:=ivec_init(0);
     rv:=rvec_init(0);
     ...
    end;
    ...
    procedure FreeApplication;
    begin
     ivec_free(iv);
     rvec_free(rv);
     ...
    end;
    ...
    procedure InitApplication;
    begin
     iv:=ivec_init(100); // Выделение памяти для 100 элементов
     rv:=rvec_init(100);
     ...
    end;
    ...
    procedure PollApplication;
    var i:Integer; { Index } ix:Integer; rx:Real; { Integer, Real value }
    begin
     ...
     ix:=ivec_get(iv,i);             // Чтение - Аналог ix:=iv[i];
     rx:=rvec_get(rv,i);             // Чтение - Аналог rx:=rv[i];
     ivec_set(iv,i,ix);              // Запись - Аналог iv[i]:=ix;
     rvec_set(rv,i,rx);              // Запись - Аналог rv[i]:=rx;
     // Циклы чтения-записи по элементам вектора:
     for i:=0 to ivec_length(iv)-1 do ix:=ivec_get(iv,i); // Чтение
     for i:=0 to ivec_length(iv)-1 do ivec_set(iv,i,ix);  // Запись
     
     ivec_setlength(iv,200);         // Изменение размера массива
     ...
    end;
   

   Векторные функции предназначены для работы с динамическими массивами, т.е. массивами большого объема, а также массивами переменной длины, которая может меняться в процессе работы программы. Использование динамических массивов предпочтительнее, чем выделение большого сегмента данных, т.к. память расходуется экономнее. Кроме того, векторы лучше защищены от ошибок доступа (типа неверного индекса). Поскольку векторы хранятся в строках, в прикладной программе может потребоваться скорректировать максимальную длину строки (Compiler.slenmax).
   
   
3. В демо конфигурации DEMO_TESTBENCH добавлен @Test 19 для проверки работы новых функций.
   
   
4. По измерениям время вызова ivec_get/set составило около 170 ns, т.е. около 6 миллионов операций чтения/записи в секунду. Этого вполне достаточно для прикладных задач.
   
   
5. Добавлены функции для работы с командами операционной системы.
   Это функции RunSysCommand, RunSysCommandAsText.
   Функции вызывают заданную команду операционной системы (консольную программу или сценарий оболочки), считывают её вывод (stdout) и код возврата. Выполнение команды ограничено заданным временем (Timeout). С новой функцией программы операционной системы фактически становятся библиотечными функциями, доступными в любой прикладной программе. Например, версию Windows можно прочитать как:

     var code:Integer; ver:String;
     ver:=RunSysCommandAsText('cmd /c ver','','',code,2000);
     if (code=0) then writeln('Version = ',ver);
   

   Новые возможности весьма полезны, однако ими не стоит злоупотеблять, т.к. вызов команд операционной системы - относительно дорогая операция. Не следует делать это без необходимости.
   
   

IsUnix
IsWindows
AdaptFileName
AdaptExeFileName
Origami

1. Данный выпуск посвящен в основном средствам поддержки многоплатформенных программ.
   
   
2. В интерпретатор DaqScript добавлены константы и функции:

       IsUnix        - работаем под Unix?
       IsLinux       - работаем под Linux?
       IsWindows     - работаем под Windows?
       lng_unknown   - идентификатор неопределенного языка интерфейса
       lng_english   - идентификатор языка интерфейса English
       lng_russian   - идентификатор языка интерфейса Russian
       cp_utf7       - идентификатор кодировки UTF-7 (65000)
       cp_utf8       - идентификатор кодировки UTF-8 (65001)
       cp_none       - идентификатор неопределенной кодировки (65535)
       guilanguage() - функция возвращает идентификатор языка интерфейса CRW-DAQ
              

   Эти константы и функции можно использовать в сценариях DaqScript, выполняемых в В Главной Консоли CRW-DAQ:

       @if IsUnix then @echo Unix is running
       @if IsWindows then @echo Windows is running
       rus=eq(guilanguage(),lng_russian)
       eng=eq(guilanguage(),lng_english)
       if rus then @echo Привет
       if eng then @echo Hello
              

   Это позволяет выполнять разные действия в зависимости от платформы.
   
   
3. В консоли &CronSrv добавлен оператор @If, позволяющий использовать в заданиях &CronSrv условные выражения по типу:

       @if IsUnix then @Run xterm
       @if IsWindows then @Run cmd
              

   В сочетании с командой @Cron это позволяет использовать условные выражения в стартовых/стоповых сценариях прикладных программ.
   
   Следует уточнить такой момент: оператор @if реализован в Главной Консоли, а также в консоли &CronSrv, но в самом интерпретаторе DaqScript его (пока) нет. Поэтому надо следить, в каком контексте (в какой консоли) выполняется выражение:

       Eval('@if IsUnix then @echo Unix')        - ошибка при выполнении в программе DaqPascal
       @If IsUnix then @echo Unix                - ошибка при выполнении в консоли DAQ устройства
       @Cron @If IsUnix then @echo Unix          - корректно выполняется в консоли CronSrv
       @System @Async @If IsUnix then @echo Unix - корректно выполняется в Главной Консоли
       Cron('@if IsUnix then @echo Unix')        - корректно выполняется в консоли CronSrv
              

   Напоминаем, что вызов @Cron cmd посылает команду cmd в консоль &CronSrv, а вызов @System @Async cmd посылает команду cmd в Главную Консоль, поэтому в этом случае выражение @if допустимо. Однако надо напомнить, что при такой посылке в другую консоль выполняться оно будет асинхронно.
   
   
4. В компилятор DaqPascal добавлены константы

       IsUnix                  - работаем под Unix?
       IsLinux                 - работаем под Linux?
       IsWindows               - работаем под Windows?
       SizeOfPointer           - размер указателя в байтах, 4/8 для 32/64 битного ЦПУ
       DefaultSystemCodePage   - системная кодировка: CP_1251(Windows) или CP_UTF8 (Unix)
       cp_utf8                 - идентификатор кодировки UTF-8 (65001)
       cp_none                 - идентификатор неопределенной кодировки (65535)
       cp_1251                 - идентификатор русской кодировки Windows (1251)
       cp_866                  - идентификатор русской кодировки DOS (866)
              

   Также добавлены функции адаптации имен файлов под правила ОС: AdaptFileName, AdaptExeFileName, AdaptFileNameMode.
   Эти функции предназначены для поддержки многоплатформенных программ. Они адаптируют (преобразуют) имена файлов (например, прочитанные из файла конфигурации) под правила данной операционной системы. Предполагается, что программы DaqPascal могут быть запущены на разных платформах (Unix/Linux,Windows).
   
   Предполагается, что вызов AdaptFileName или AdaptExeFileName является первым шагом в цепочке обработки имени файла (например, после чтения из файла конфигурации):

       f:=ReadIni('ProgName');              // Допустим, ProgName = ../Utility/Test.cmd
       f:=AdaptExeFileName(f);              // Unix:     f = ../utility/test.cmd
       f:=AdaptExeFileName(f);              // Windows:  f = ..\Utility\Test.cmd
       f:=DaqFileRef(f,'');                 // Добавляем путь файла
              

   Функции AdaptFileName или AdaptExeFileName выполняют первичную адаптацию имени файла под правила текущей операционной системы:
   • Удаляются лишние пробелы,
   • Исправляются разделители каталогов (\ или /),
   • В Unix системах имя файла преобразуется в нижний регистр,
   • Вызов AdaptExeFileName также исправляет расширение файла, добавляя/убирая .exe у исполняемых файлов, либо заменяя .cmd на .sh у сценариев. Подробнее см. описание функций.
   Адаптация имен файлов нужна для того, чтобы корректироввать имена файлов в гибридной среде, где имена файлов могут быть записаны в конфигурации или получены по сети от компьютера, работающего на другой платформе (Windows,Unix/Linux). После адаптации имя файла, по крайней мере, будет соответствовать формату, принятому для текущей операционной системы.
   
   Если раньше типичным (идеоматическим) вызовом, например, для чтения имени EXE файла из конфигурации был:

   exe:=DaqFileRef(Trim(ReadIni('ProgramExe')),'.exe');

   то теперь он заменяется на вызов

   exe:=DaqFileRef(AdaptExeFileName(ReadIni('ProgramExe')),'');

   который должен работать на любой платформе.
   
   
5. Обновлен редактор Origami с мелкими поправками от А.Жирунова.
   
   
6. В сборку UnixUtils добавлен логгер glogg (альтернатива wintail).
   
   
7. Изменился алгоритм работы MarkdownViewer. Раньше он для файла file.md просто создавал файл file.md.html. Теперь он проверяет существование файлов file.htm или file.html. Если один из этих файлов найден, результат записывается в этот файл. Это позволяет сохранять привычные имена файлов документации, но при этом генерировать их из файлов *.md.
   
   В будущем рекомендуется всю прикладную документацию делать в *.md, а файлы *.htm генерировать из *.md с помощью MarkdownViewer. Это намного упростит создание справочных файлов и снизит трудозатраты.
   
   
8. Небольшие изменения в документации DIM. В разделе "Соглашения о именовании" добавлена информация об ограничении длины имен сервисов, компьютеров и задач.
   
   
9. Очень серьезные изменения в документации HTML.
   В новой версии пакета для всех текстовых файлов будет использоваться универсальная кодировка utf-8, а имена файлов будут использоваться в нижнем регистре (соглашение для Linux, в связи с тем, что имена файлов регистро-чувствительны). В переходный период (от Crw32 к CrwDaq) у нас большая часть документации будет общей для обеих версий. Крайне хотелось бы избежать наличия двух версий файлов документации в разных кодировках. По этой причине было решено перевести ВСЮ документацию CRW32 (только HTML) в кодировку utf-8, а имена HTML файлов - в нижний регистр. Для этого был создан сценарий, который ищет все файлы *.htm*, переводит их имена в нижний регистр, переводит кодировку в utf-8, устанавливает charset=utf-8, переводит все ссылки (href,src) в нижний регистр. Обработке подверглось более 1000 файлов - только HTML, имеющие кодировки ANSI. Некоторые файлы (содержащие href=data:image) были пропущены, т.к. base64 чувствителен к регистру и при смене регистра ссылок изображение ломается. Отчет см тут. Вроде бы все должно сработать верно, но при таком массовом изменении отдельные HTML-ссылки могли поломаться. Будем со временем исправлять. Поскольку это касается только документации, существенного влияния на работу прикладных систем возникнуть не должно.
   В результате сейчас все файлы HTML (за исключением нескольких файлов) хранятся в кодировке utf-8, что позволяет их использовать как в старой, так и в новой версии пакета.

DownSampling
DownSampling.Tail

1. Данный выпуск посвящен доработке алгоритмов управления дискретностью (DownSampling).
   
   
2. Серьезно доработаны алгоритмы понижения дискретности DownSampling, см. также описание.
   
   Причиной доработок послужили две проблемы, обнаруженные Н.Гуриным в процессе тестирования.
   
   1. "Поломка" алгоритма отображения данных при наличии "дырок" (интервалов с отсутствующими данными) в отображаемой кривой.
      Проявляется в том, что вместо графика рисуются 2 точки и прямая.
   2. Нарушение монотонности графика при добавлении новых точек графика в режиме Online.
   
   Первая проблема была решена путем серьезной доработки алгоритмов понижения дискретности (DownSampling). В новой версии предприняты все меры для того, чтобы наличие "дырок" не приводило к сбою алгоритма рисования.
   
   Для решения второй проблемы был введен дополнительный параметр DownSampling.Tail (дословно - "хвост").
   Этот параметр задает число хвостовых точек (в конце кривой), которые сохраняются неизменными и не затрагиваются при выполениии процедуры понижения дискретности. При добавлении новых точек данных хвостовой участок кривой позволяет рисовать новые данные, поступающие в режиме Online, без разрывов и искажений.
   
   Теперь диалог параметров DownSampling выглядит так:
   
   
   
   
3. Изменены параметры для задания начальных значений дискретности в конфигурации:

   Файл     Crw32.ini
   Секция   [System]
   Параметр DefDownSamplingParams = 1, 15, 4096, 2, 3
        где:
            1    - алгоритм LargestTrianleThreeBuckets
            15   - режим, разрешающий использование дискретности
            4096 - абсолютный порог для числа точек
            2    - число точек на пиксель для вычисления порога
            3    - число точек в "хвосте", которые не изменяются
              

   
   
   
4. Есть надежда, что на этом тема проблем с алгоритмом DownSampling будет закрыта.

константы $HEX
константы &OCT
константы %BIN
strtointbase
inttostrbase
DEMO_TESTBENCH

1. Главными достижениями данного выпуска являются: добавление шестнадцатеричных констант ($xxxx); добавление восьмеричных констант (&xxxx); добавление двоичных констант (%xxxx).
   
   
2. В компилятор DaqPascal добавлена возможность задавать целочисленные константы (литералы) не только в обычной (десятичной) нотации (записи), но также и в шестнадцатеричной, восьмеричной и двоичной нотации. Например:

   const b10 = 255;         // Decimal     constant, base 10
   const b16 = $FF;         // Hexadecimal constant, base 16
   const b8  = &377;        // Octal       constant, base 8
   const b2  = %11111111;   // Binary      constant, base 2
              

   Символы ($,&,%) служат признаком констант по основанию (16,8,2) соответственно.
   
   Поскольку символ & служит синонимом оператора and, с восмеричными константами надо быто осторожными. Символ & рассматривается как признак восьмеричной константы только тогда, когда следующим символом идет восьмеричная цифра (0..7). Поэтому возможны ситуации неоднозначной интерпретации выражений, для устранения которых рекомендуется использовать скобки.
   
   Новые средства добавлены для улучшения совместимости прикладного кода DaqPascal с компилятором FreePascal. Разумеется, задачи обеспечения полной совместимости не стоит - эти компиляторы решают разные задачи. Однако иметь некоторую степень совместимости неплохо, т.к. судя по практике, сходные фрагменты кодов часто используются в разных контекстах (DaqPascal, DieselPascal, FreePascal).
   
   
3. Выдержка из справки компилятора Free Pascal:

   For integer type constants, Free Pascal supports four formats:
   1. Normal, decimal format (base 10). This is the standard format.
   2. Hexadecimal format (base 16), in the same way as Turbo Pascal does.
      To specify a constant value in hexadecimal format, prepend it with a dollar sign ($).
      Thus, the hexadecimal $FF equals 255 decimal.
      Note that case is insignificant when using hexadecimal constants.
   3. As of version 1.0.7, Octal format (base 8) is also supported.
      To specify a constant in octal format, prepend it with an ampersand (&).
      For instance 15 is specified in octal notation as &17.
   4. Binary notation (base 2).
      A binary number can be specified by preceding it with a percent sign (%).
      Thus, 255 can be specified in binary notation as %11111111.
              

   Перевод:

   Для констант целочисленного типа Free Pascal поддерживает четыре формата:
   1. Обычный, десятичный формат (основание 10). Это стандартный формат.
   2. Шестнадцатеричный формат (база 16), точно так же, как это делает Turbo Pascal.
      Чтобы указать постоянное значение в шестнадцатеричном формате, добавьте к нему знак доллара ($).
      Таким образом, шестнадцатеричный $FF равен 255 десятичным.
      Обратите внимание, что регистр несущественен при использовании шестнадцатеричных констант.
   3. Начиная с версии 1.0.7, также поддерживается восьмеричный формат (базовый 8).
      Чтобы указать константу в восьмеричном формате, добавьте к ней амперсанд (&).
      Например, 15 указано в восьмеричной системе счисления как &17.
   4. Двоичная система счисления (основание 2).
      Двоичное число можно указать, поставив перед ним знак процента (%).
      Таким образом, 255 может быть указано в двоичной системе счисления как %111111111.
              

   
   
   
4. В DaqPascal добавлены функции преобразования: inttostrbase, strtointbase, которые преобразуют сроку в число или число в строку по различным системам счисления (двоичной, восьмеричной, десятичной, шестнадцатеричной). Эти функции частично дублируют уже существующие (например, для десятичной или шестнадцатеричной систем), однако для других систем (например, двоичной и восьмеричной) аналогов не было. Функция strtointbase также умеет преобразовывать строки с явным указанием системы счисления символами ($,&,%). Таким образом, новые функции являются хорошим дополнением к имеющемуся набору функций преобразования.
   
   
5. В демо конфигурации DEMO_TESTBENCH добавлен @Test 18 для проверки работы новых функций преобразования.

параметры в кавычках
DEMO_SHM
DownSampling
origami

1. Главными достижениями данного выпуска являются: управление дискретностью (DownSampling); парамеры мнемосхем в кавычках; обновление Origami; обновление DEMO_SHM.
   
   
2. Параметры (Hint,Tag,GeneralMap) мнемосхем в файлах *.CRC теперь можно задавать в кавычках.
   Используется либо кодировка URL, либо (двойные) кавычки (").
   Распознавание формата идет по первому значимому символу (отличному от пробелов).
   Если это двойные кавычки ("), то извлекается строка в кавычках, иначе используется кодировка URL, как и было раньше.
   
   
3. Обновлена ДЕМО конфигурация DEMO_SHM, в которой мнемосхемы сделаны в новом стиле (с кавычками).
   
   
4. Для ускорения рисования графиков в окнах CurveWindow добавлена команда управления дискретностью (или понижения уровня дискретности - DownSampling). Для иллюстрации работы DownSampling имеется демонстрационный пример, а также описание.
   
   Понижение дискретности (DownSampling) - это способ кардинально (в десятки раз) повысить скорость отображения графиков при большом числе точек (например, больше 2000). Идея понижения дискретности проста. На экране есть ограниченное число пикселей, например, 1920 пикселей по горизонтали. Строить график функции с числом точек, намного превышающим число пикселей - бессмысленно, т.к. близкие точки все равно сольются на экране в одну точку (или один отрезок линии). Поэтому можно понизить число отображаемых точек до разумного предела. Тогда их отображение происходит намного быстрее. Фактически при понижении дискретности отображается только часть точек из кривой, а остальные точки отбрасываются. Другими словами, DownSampling - это выборка данных с пониженным числом точек, представляющая (на экране) исходный (большой) массив данных.
   
   Главным вопросом реализации DownSampling является репрезентативность данных, т.е. качество представления (на экране) большого объема данных с помощью выборки гораздо меньшего объема. Для обеспечения репрезентативности был разработан целый ряд алгоритмов, некоторые из которых описаны в диссертации Sveinn Steinarsson ss_msthesis.pdf из университета Рейкьявика (Исландия). Предложенные в диссертации алгоритмы позволяют делать выборки данных, которые при отображении графиков дают изображение, мало отличающееся от изображения, построенного по всему (большому) массиву данных. При этом получается большой (в десятки раз) выигрыш в скорости построения графиков.
   
   Как следует из приведенного выше описания, DownSampling применяется только к большим данным (т.е. кривым с большим числом точек - назовем его DataLeng). Кривые с числом точек ниже порога отображаются без понижения дискретности (в исходном виде). Для вычисления порога для пониженного числа точек (назовем его DownLeng) применяется следующий метод.
   • Задается DownSampling.Method - алгоритм выборки данных для отображения из исходного массива. Рекомендуемый алгоритм - LargestTrianleThreeBuckets.
   • Задается DownSampling.Mode - режим работы, т.е. набор битовых флагов:
     Бит 0 - разрешить использование DownSampling.
     Бит 1 - разрешить использование AbsLen.
     Бит 2 - разрешить использование PerPix.
   • Задается DownSampling.AbsLen - абсолютный порог для длины данных (т.е. для числа точек кривой).
   • Задается DownSampling.PerPix - число точек на пиксель. Порог длины данных вычисляется как DownLeng=PerPix*PixWidth, где PixWidth - ширина графика в пикселях.
   При работе алгоритма перед построением графика вычисляется порог для числа точек как DownLeng=Min(AbsLen,PerPix*PixWidth), где PixWidth - ширина графика в пикселях. Если длина данных не превышает порога (т.е. DataLeng<=DownLeng), график рисуется "как есть", без понижения дискретности. Если число точек кривой больше порога и понижение дискретности разрешено, применяется заданный алгоритм DownSampling.Method. При этом число точек для отображения не будет превышать пороговое значение независимо от размера исходных данных.
   
   На панели инструментов окна кривых появилась команда "Дискретность".
   Её вид зависит от параметров дискретности:
   • - понижение дискретности запрещено и график построен без понижения дискретности.
   • - дискретность разрешена и график был построен с использованием понижения дискретности.
   • - дискретность разрешена, но график был построен без понижения дискретности, т.к. число точек кривой оказалось ниже порога.
   При нажатии кнопки появляется диалог:
   
   В этом диалоге можно задать параметры понижения дискретности.
   
   Также команда "Дискретность" помещена в меню "Правка".
   
   
5. Для задания начальных значений дискретности добавлен параметр конфигурации:

   Файл     Crw32.ini
   Секция   [System]
   Параметр DefDownSamplingParams = 1, 7, 4096, 2
        где:
            1    - алгоритм LargestTrianleThreeBuckets
            7    - режим, разрешающий использование дискретности
            4096 - абсолютный порог для числа точек
            2    - число точек на пиксель для вычисления порога
              

   
   
   
6. В конфигурацию окон кривых DAQ системы добавлен параметр UsesDownSampling, принимающий значения 0/1 (по умолчанию 1). Этот параметр позволяет отключать/включать использование дискретности.
   
   
7. Алгоритм понижения дискретности позволяет кардинально (в десятки раз) повысить скорость рисования графиков при большом (более 2000 точек) числе точек кривой, причем скорость рисования будет слабо зависеть от объема данных в кривой, т.к. выборка будет понижать число точек до заданного порогового уровня.
   
   При этом использование режима увеличения (zoom) позволяет при необходимости рассматривать массив больших данных с любой степенью подробности. При масштабировании рисуется только фрагмент кривой, попавший в поле графика, так что начиная с определенного уровня увеличения понижение дискретности автоматически выключается, когда в поле графика попадает число точек ниже порога. Это позволяет рассматривать данные быстро и без потери качества.
   
   
   В целом алгоритм управления дискретностью является значительным шагом вперед и позволяет эффективно работать с данными большого объема с высокой производительностью.
   
   
   
8. Обновлен редактор Origami с поправками от А.Жирунова. В новой версии поддерживаются мнемосхемы с надписями в кавычках.
   
   
9. Обновлены ДЕМО конфигурации DEMO_VMCD, DEMO_VTRD, DEMO_EM2RS с доработками от А.Жирунова.
   
   
10. В дистрибутив добавлен инсталлятор install-daqgroup-fpcupdeluxe-x86.exe, подготовленный Н.Гуриным. Это портабельная версия Free Pascal и Lazarus. Это средство для разработчиков.

SMI
SmiGenGui.lm9
fixeol
fixutf8
shm_init
shm_ref
shm_free
shm_delink
shm_iop
shm_rop
shm_fop
shm_sop
shm_ctrl
shm_ioresult
DEMO_SHM

1. Главными достижениями данного выпуска являются: обновление SMI; сборка SMI под AstraLinux; новая группа функций shm_xxx для работы с общей памятью; обновление SmiGenGui.lm9.
   
   
2. Обновлена версия SMI (Конечные Автоматы) с версии 5702 на актуальную 5801. Обновление было сделано в ходе работ по сборке SMI под AstraLinux - целесообразно было делать сборку из последней версии, а заодно обновить сборку SMI под Windows.
   
   Сборка SMI под AstraLinux оформлена как deb пакет install-daqgroup-smi.deb.
   
   
3. Обновлена утилита SmiGenGui для управления и наблюдения SMI - теперь она кросс-платформенная и работает также под AstraLinux, где она включена в пакет crwkit.
   
   
4. Поскольку в гибридной (Windows/Linux) среде мы будем постоянно сталкиваться с проблемами формата текстовых файлов
   1) EOL - перевода строки LF или CRLF
   2) UTF8 - перевода файлов в кодировку UTF8 или CP1251
   то нужен удобный иструмент для пакетного (массового) определения файлов с неверной кодировкой и их преобразования в правильный формат.
   
   Для этого были сделаны команды

   unix fixeol -t *.txt     проверка корректности EOL для файлов *.txt
   unix fixeol *.txt        исправление маркеров  EOL для файлов *.txt
   unix fixeolzen *.txt     проверка корректности EOL в графическом режиме (для Commander)
   unix fixeolzen *.txt     исправление маркеров  EOL в графическом режиме (для Commander)
   unix fixutf8 -t *.txt    проверка корректности UTF8 для файлов *.txt
   unix fixutf8 *.txt       исправление маркеров  UTF8 для файлов *.txt
   unix fixutf8zen *.txt    проверка корректности UTF8 в графическом режиме (для Commander)
   unix fixutf8zen *.txt    исправление маркеров  UTF8 в графическом режиме (для Commander)
              

   Эти команды включены в пакет crwkit, а также для удобства интегрированы на панель инструментов DoubleCommander.
   
   Под Windows реализована пока только утилита fixeol, включенная в UnixUtils. В будущем (когда будет время) есть планы сделать (по аналогии) и другие утилиты и интегрировать их в TotalCommander.
   
   
5. В DaqPascal введена еще одна группа 10 функций для IPC (взаимодействия между процессами) через общую память (SHM = shared memory) shm_init, shm_ref, shm_free, shm_delink, shm_iop, shm_rop, shm_fop, shm_sop, shm_ctrl, shm_ioresult. Библиотека появилась в ходе работ по переводу пакета под FreePascal и является универсальной (DaqPascal,Delphi,FreePascal, Windows/Unix), что облегчает создание клиент-серверов, написанных на разных языках программирования для разных систем.
   
   
6. Создана ДЕМО конфигурация DEMO_SHM, иллюстрирующая работу клиент-серверых программ с общей памятью в качестве механизма OPC. Есть описание.
   
   Обратите внимание - в этом примере используется справочный файл index.md.html. При этом исходным редактируемым файлом справки является index.md, из которого получается index.md.html. Это хорошая практика - с одной стороны, редактирование *.md файлов намного легче и быстрее, при хорошей структуре документа. С другой стороны, формат *.html более переносимый и поддерживается всеми браузерами непосредственно, без установки дополнительных плагинов. Эта практика рекомендуется к использованию во всех прикладных системах. Надо лишь не забывать после редактирования *.md файлов обновлять (одним кликом) файл *.md.html. Пожалуй, это наиболее разумная методика подготовки справочных файлов.
   
   
7. В StdLibrary добавлена функция ExtractNameValuePair для разбора выражений типа Name=Value, при этом часть внутренних библиотек переделана на эту функцию (унификация кода).
   
   

DieselPascal
DimStatGui.lm9
DimMonitor.lm9
crw-daq-style-guide-ru.md
DEMO_EM2RS

1. Главными достижениями данного выпуска являются: обновление библиотек DieselPascal; обновление DimMonitor.lm9 и DimStatGui.lm9.
   
   
2. Обновлены библиотеки DieselPascal. Изменения коснулись функций вычисления специальных каталогов программы:

   Dir:=GetAppDataDir(false,true);     // Локальный каталог данных программы, например:
                                       // Win10: C:\Users\main\AppData\Roaming\DaqGroup\dimmonitor
                                       // Linux: /home/alex/.local/share/daqgroup/dimmonitor
   Dir:=GetAppConfigDir(false,true);   // Локальный каталог настроек программы, например:
                                       // Win10: C:\Users\main\DaqGroup\dimmonitor
                                       // Linux: /home/alex/.config/daqgroup/dimmonitor
   InitAppFolders;                     // Создать локальный каталог данных и настроек,
                                       // вызывается один раз в начале программы.
   
   Пример для DimMonitor - Linux:
   
   GetAppDataDir(0,0)   = /home/alex/.local/share
   GetAppDataDir(0,1)   = /home/alex/.local/share/daqgroup/dimmonitor
   GetAppDataDir(1,0)   = /usr/share
   GetAppDataDir(1,1)   = /usr/share/daqgroup/dimmonitor
   GetAppConfigDir(0,0) = /home/alex/.config
   GetAppConfigDir(0,1) = /home/alex/.config/daqgroup/dimmonitor
   GetAppConfigDir(1,0) = /etc
   GetAppConfigDir(1,1) = /etc/daqgroup/dimmonitor
   
   Пример для DimMonitor - Win10:
   
   GetAppDataDir(0,0)   = C:\Users\main\AppData\Roaming
   GetAppDataDir(0,1)   = C:\Users\main\AppData\Roaming\DaqGroup\dimmonitor
   GetAppDataDir(1,0)   = C:\ProgramData
   GetAppDataDir(1,1)   = C:\ProgramData\DaqGroup\dimmonitor
   GetAppConfigDir(0,0) = C:\Users\main
   GetAppConfigDir(0,1) = C:\Users\main\DaqGroup\dimmonitor
   GetAppConfigDir(1,0) = C:\ProgramData
   GetAppConfigDir(1,1) = C:\ProgramData\DaqGroup\dimmonitor
              

   Функции используются для работы с специальными каталогами программы в многоплатформенной среде - каталоги будут подстраиваться под данную конкретную систему. При этом каталог GetAppDataDir используется для хранения данных и текущих настроек программы, а каталог GetAppConfigDir - для хранения файлов конфигурации. Настройки и данные условно делятся на глобальные (для всех пользователей) и локальные (только для данного пользователя). Соответственно есть два вида каталогов - глобальные и локальные. Кроме того, в имена каталогов могут включаться (или не включаться) Vendor (производитель) и AppName (имя программы).
   
   Вызов GetAppDataDir(global,subdir) возвращает каталог данных программы, где можно хранить текущие настройки или временные данные. Для локальных/глобальных настроек используется флаг global=false/true; при указании флага subdir к имени каталога добавляется Vendor/AppName. Для наших задач будет использоваться Vendor=DaqGroup, а AppName - имя исполняемого файла программы без пути и расширения. Под Linux все имена приводятся к нижнему регистру (чтобы избежать проблем с регистрами имен файлов). В программе DimMonitor.lm9 локальный каталог данных используется для хранения INI файлов с настройками.
   
   
3. Обновлены утилиты DimMonitor.lm9 и DimStatGui.lm9. DimMonitor.lm9 доработан в плане отображения данных и поддержки (двух) языков интерфейса пользователя. Утилиту можно еще долго улучшать, но в первом приближении она готова для использования как в качестве отладочной утилиты, так и для работы в составе прикладных систем на базе DIM.
   
   
4. Обновлена ДЕМО конфигурация DEMO_EM2RS с доработками от А.Жирунова.
   
   
5. Обновлено руководство по стилю программирования с правками от Н.Гурина - crw-daq-style-guide-ru.md.
   
   

DIM 2035
DimStatGui.lm9
DimMonitor.lm9
SpinCountSys()
SpinCountDef(n)
SpinCountTag(n)
EOL
Origami
crw-daq-style-guide-ru.md
DEMO_EM2RS
DieselPascal 2.1.6

1. Главными достижениями данного выпуска являются: функции управления спин-блокировками; обновление Origami; обновление DieselPascal; функция EOL конца строки; обновление DIM и его библиотек; обновление DimMonitor.lm9 и DimStatGui.lm9.
   
   
2. DIM обновлен до актуальной версии 20.35. В этой версии исправлены некоторые ошибки. Кроме того, под Windows мютексы заменены на более быстрые критичекие секции, что (потенциально) повышает скорость работы и снижает нагрузку процессора.
   
   
3. Обновлены утилиты DimMonitor.lm9 и DimStatGui.lm9. Они сделаны кроссплатформенными и работают под обеими системами (Windows,Linux). Кроме того, DimMonitor.lm9 доработан в плане отображения данных и доведен с тестовой до рабочей версии.
   
   В программе DimMonitor.lm9 есть возможность запускать несколько экземпляров и сохранять настройки в *.ini файле с последующей (авто) загрузкой и запуском монитора. Например:

              @run DimMonitor.lm9 --number 1 --dns localhost --ini dimmonitor_1.ini
              @run DimMonitor.lm9 --number 2 --dns localhost --ini dimmonitor_2.ini
              

   По умолчанию *.ini файлы (если явно не указан путь) сохраняются в профиле пользователя (что-нибудь типа c:\Users\main\AppData\Roaming\dimmonitor\dimmonitor_1.ini). Это позволяет запускать окна для наблюдения различных параметров через DIM одной командой с автоматически загружаемыми параметрами. Это делает DimMonitor.lm9 вполне рабочим инструментом для диагностики и отображения состояния DAQ систем.
   
   
4. В системный калькулятор (т.е. интерпретатор Главной Консоли) добавлены функции:
   • SpinCountSys() - системный счетчик спин-блокировок.
   • SpinCountDef(n) - счетчик спин-блокировок по умолчанию.
   • SpinCountTag() - счетчик спин-блокировок для тегов.
   
   Вызов SpinCountSys() возвращает счетчик спин-блокировок, используемый в системе по умолчанию, если явно не задан другой.
   По моим измерениям:
   Для WinXP значение SpinCountSys() равно 0.
   Для Win10 значение SpinCountSys() равно 2000.
   
   Вызов SpinCountDef(n) возвращает текущий счетчик спин-блокировок, используемый в программе по умолчанию и затем задает ему новое значение n. Начальное значение счетчика -1, что означает "использовать системное значение по умолчанию из SpinCountSys()". При задании другого (неотрицательного) значения задается значение счетчика спин-блокировок, используемое для большинства объектов блокировки (на базе критических секций), кроме тегов.
   
   Вызов SpinCountTag(n) возвращает текущий счетчик спин-блокировок, используемый для блокировки тегов и затем задает ему новое значение n. Начальное значение счетчика равно SpinCountSys(). При задании другого значения задается счетчик спин-блокировок, используемый для блокировки тегов.
   
   Счетчики SpinCount влияют на работу критических секций. При обнаружении блокировки критическая секция крутится (spin) в цикле ожидания SpinLock, ожидая, пока либо освободится блокировка, либо счетчик итераций достигнет заданного предела SpinCount. После этого либо происходит захват критической секции, либо перевод потока в спящий режим, что довольно долго, т.к. связано с системным вызовом, который занимает как минимум микросекунду (т.е. несколько тысяч тактов процессора). Задание правильного значения счетчика SpinCount позволяет снизить нагрузку процессора на многоядерных системах в случае конкуренции потоков за ресурсы (в нашем случае - теги, кривые и т.д.). Оптимальное значение счетчика зависит от типичного времени блокировки ресурсов. Если блокировки ресурсов происходят на короткое время, счетчик можно уменьшить. Если блокировки более длительные, счетчик увеличивают. Однако нет смысла делать счетчик слишком большим, т.к. если время спин-блокировки превышает время системного вызова для блокировки потоков, то выгода от использования спин-блокировки исчезает. В то же время если счетчик слишком мал, программа не успеет освободить блокировку и поток уйдет в сон. Разумным выглядит значение счетчика в диапазоне [0-2000]. Для выяснения оптимального значения SpinCount нужно провести тестирование. По крайней мере такая возмоность сейчас есть.
   
   Было давно замечено, что в больших прикладных системах иногда возникает довольно высокая нагрузка процессора даже при отсутствии большого числа данных. Это веротно связано с конкуренцией большого числа потоков за доступ к ресурсам (например, тегам и кривым). При этом происходит либо чрезмерно частое переключение потоков, либо избыточные потери времени в циклах ожидания спин-блокировок. Задание оптимального значения счетчиков спин-блокировок позволит (как ожидается) снизить нагрузку процессора при работе большого числа потоков. Для определения оптимального значения SpinCount нужно провести серьезную работу по тестированию производительности на больших системах при различных значениях SpinCount.
   
   
5. В DaqPascal введена еще одна функция для маркера конца строки EOL, которая является синонимом LineEnding и sLineBreak. Название EOL = End Of Line является широко распространенной аббревиатурой, которая к тому же коротка, легко произносима и понятна. Названия LineEnding и sLineBreak широко применяются в кодах Free Pascal и поэтому должны присутствовать в библиотеке, однако использовать их неудобно из-за громоздкости - получается длинный, тяжеловесный код. Использование короткого и ясного маркера EOL удобнее и улучшит читабельность прикладного кода.
   
   Краткое резюме: вместо CRLF теперь используем EOL.
   
   
6. Обновлен редактор Origami с мелкими правками от А.Жирунова.
   
   
7. Обновлена ДЕМО конфигурация DEMO_EM2RS с доработками от А.Жирунова.
   
   
8. Обновлено руководство по стилю программирования с правками от Н.Гурина - crw-daq-style-guide-ru.md.
   
   
9. DieselPascal обновлен до актуальной версии 2.1.6. В этой версии в Дизель исправлены некоторые ошибки, добавлена константа EOL = LineEnding, добавлены константы и типы, нужные для рисования StringGrid.OnDrawCell().
   
   

DieselPascal 2.1.2
dpSystem
dpTask

1. Главными достижениями данного выпуска являются: обновление DieselPascal и его библиотек.
   
   
2. DieselPascal обновлен до актуальной версии 2.1.2. В этой версии в Дизель добавлены функции работы со списком переменных окружения, экранными координатами мыши и ряд других полезных добавлений, некоторые из которых описаны в daqgroupnews.md. Также поправлены библиотеки dpSystem.pas, dpSysUtils.pas, dpTask.pas, dpGuiUtils.pas, чтобы корректно работал запуск процессов (функции task_run) под Linux и работа с окнами. Проблема была связана с тем, что в Linux по-другому сделан механизм наследования переменных окружения. В прежней версии библиотеки наследовалось начальное окружение, переданное процессу при запуске, а изменения, сделанные в программе после запуска, не передавались. Теперь изменения, сделанные с помощь SetEnv(), передаются в дочерний процесс верно.
   
   
3. Библиотека DieselPascal существенно переработана для обеспечения кроссплатформенной совместимости. Работа в этом отношении еще не завершена и будет продолжаться по мере необходимости. Пока сделанных изменений достаточно для создания кросссплатформенных утилит, корректно работающих с процессами в обоих системах.
   
   
4. Обновлены все *.lm9 утилиты (около 20) в соответствии с изменениями в библиотеках. Такое массовое обновление, будем надеяться, часто делать не придется - а сейчас особый случай, связанный с переходом под Linux. Большинство утилит DieselPascal должны (номинально) запускаться под Windows и Linux и, как минимум, показывать интерфейс и выполнять простейшие команды графического интерфейса. Хотя корректно работать под обеими системами пока могут только отдельные утилиты (например demoping).
   
   

DieselPascal 2.1.0
$DIESELPASCAL_EXTERNAL
Origami
DEMO_VMCD
DEMO_VTRD
DEMO_EM2RS
Crw32.Utils.lm9

С Днем Космонавтики!



С Пасхой!

1. Главными достижениями данного выпуска являются: обновление Origami; добавление драйверов вакууметров DEMO_VMCD, DEMO_VTRD; обновление и новые опции DieselPascal и его библиотек.
   
   
2. DieselPascal обновлен до актуальной версии 2.1.0. В этой версии файл evars.cfg со списком строк вида NAME=Value, содержащий пользовательские переменные окружения, может располагаться в двух местах (в том числе в обоих сразу): в системном каталоге расположения исполняемых файлов Дизеля ($DIESEL_EXE_DIR), и в локальном каталоге пользовательской конфигурации ($DIESEL_LOCALSET_DIR). Сначала считывается системный файл $DIESEL_EXE_DIR/evars.cfg, а затем пользовательский файл $DIESEL_LOCALSET_DIR/evars.cfg, так что локальная конфигурация может переопределять системные значения переменных окружения, что позволяет гибко настраивать программное окружение утилит DieselPascal. При задании переменных окружения из файла их имена приводятся к верхнему регистру. Для утилит под Windows это неважно, а под Linux регистр играет роль.
   
   
3. Обновлена утилита Crw32.Utils.LM9 и все утилиты *.lm9. В опциях проекта ExternalPath сделана замена %DieselPascal_External% на $DIESELPASCAL_EXTERNAL в стиле Linux. Для утилит под Windows это эквивалентная замена, а для утилит под Linux регистр играет роль. Все переменные окружения DieselPascal заданы в верхнем регистре.
   
   
4. Во всех утилитах *.lm9 теперь указаны опции проекта

   ExternalPath = $DIESELPASCAL_EXTERNAL;$DIESEL_EXE_DIR\external;$DIESEL_SCRIPT_DIR\external;

   Также в обоих версиях (Win32 и Linux) внешние библиотеки помещены в $DIESEL_EXE_DIR\external и $DIESEL_SCRIPT_DIR\external, так что эти библиотеки стали доступными для всех программ DieselPascal.
   
   Теперь утилиты DieselPascal стало можно запускать не только из среды пакета CRW-DAQ, но из любого места, при этом при запуске из пакета будет доступна локальная (для пакета) библиотека $DIESELPASCAL_EXTERNAL, при запуске вне пакета будет доступна локальная (для пользователя) библиотека $DIESEL_SCRIPT_DIR\external, а общая библиотека $DIESEL_EXE_DIR\external доступна для всех пользователей, а не только для того, кто устанавливал DieselPascal. Получается довольно гибкая система управления библиотеками.
   
   
5. Обновлены External библиотеки DieselPascal. Внесены изменения для совместимости с Linux. Добавлен модуль dpLinux и демо demoping.lm9. Это демо иллюстрирует запуск процессов с перехватом консольного ввода-вывода - проверено под Win-x32/x64 и AstraLinux-x64. Теперь проблема создания графических утилит на базе консольных программ с графическим интерфейсом на DieselPascal в принципе решена.
   
   
6. Поправлена документация к функции InitDevice().
   
   
7. Обновлен редактор Origami с правками от А.Жирунова. Смотрите журнал новостей в редакторе.
   
   
8. Обновлены ДЕМО конфигурации DEMO_VMCD, DEMO_VTRD, DEMO_EM2RS, содержащие драйверы от А.Жирунова.
   
   

daqgroup@mail.ru
Copyright
daqgroupnews.md
daqgroupnotes.md
unixutils
markdownviewer
crw-daq-style-guide-ru.md
Origami
DEMO_VMCD
DEMO_VTRD
Painter
DEMO_PAINT_GUILIB
DEMO_PAINT_GOSTLIB
DieselPascal 2.0.26
DIESEL_EXE_DIR
DIESEL_EXE_PID
DIESEL_LOCALSET_DIR
DIESEL_SCRIPT_DIR
DIESEL_SCRIPT_NAME
Crw32.Utils.lm9

1. Главными достижениями данного выпуска являются: почта daqgroup@mail.ru; новости daqgroupnews.md и заметки daqgroupnotes.md; обновление Origami; добавление драйверов вакууметров DEMO_VMCD, DEMO_VTRD; обновление Painter и ДЕМО DEMO_PAINT_GUILIB, DEMO_PAINT_GOSTLIB; обновление и новые опции DieselPascal; обновление утилиты Crw32.Utils.lm9 обновление unixutils и MarkdownViewer.
   
   
2. Для нужд группы автоматизации DaqGroup заведена почта daqgroup@mail.ru. По этому адресу (который легко запомнить) можно вести переписку по развитию пакета, а также указывать его в Copyright для продуктов коллективной разработки.
   
   
3. Канонический вид строки Copyright для DaqGroup имеет вид:
   
   DEMO Copyright (c) 2022-2023 DaqGroup <daqgroup@mail.ru>
   
   Вместо DEMO подставляется (короткое) имя продукта, указываются годы (активной) разработки (через тире). При необходимости меняется адрес почты (например, на персональный адрес), а также имя автора (если это персональный проект). Никаких запятых, географических названий и иной избыточности быть не должно. Рекомендуется также использовать Copyright (c), а не знак ©, чтобы текст однозначно читался в любой кодировке. Рекомендуется использовать лицензию MIT, которая накладывает самые низкие ограничения. Для этого в строке Copyright добавляется в конце … under MIT license. По условиям MIT лицензии в каталоге продукта (в любом месте) должен также находиться файл с именем license или readme по шаблону license.md. В первых строках файла находится строка Copyright с указанием авторства, а остальной текст стандартный. Лицензия MIT фиксирует авторство, право использования продукта (всеми) пользователями и отказ от гарантий (чтобы обезопасить автора от избыточных обязательств перед пользователями). Она совместима с большинством других лицензий, поэтому хорошо подходит для большинства проектов.
   
   
4. Начиная с этого момента в папке репозитория /srv/public/mirror/addons/ будут располагаться:
   Новости DaqGroup (отсортированные по датам) по репозиторию и системе AstraLinux:
   в формате Markdown daqgroupnews.md и в формате HTML daqgroupnews.md.html.
   
   Технические заметки (с разбивкой по темам) для системы AstraLinux:
   в формате Markdown daqgroupnotes.md и в формате HTML daqgroupnotes.md.html.
   
   Введение новых файлов связано с тем, что мы переходим на AstraLinux и пакет будет обновляться реже. А новости (по программированию в системе AstraLinux) где-то надо размещать. Поэтому все новости по AstraLinux будут размещаться только в новых файлах.
   
   
5. Сделано обновление UnixUtils: обновлена утилита MarkdownViewer.
   Теперь она умеет обрабатывать конструкцию [[toc]] (эта конструкция должна располагаться на отдельной строке).
   Также появилась опция --convert-only:

   unix markdownviewer demo.md                     - генерирует demo.md.html и открывает его в Firefox
   unix markdownviewer demo.md --convert-only      - просто генерирует файл demo.md.html (не открывает)
              

   Новая опция позволяет конвертировать файлы в пакетном режиме (например, в процессе инсталляции), когда файлы надо конвертировать, но не требуется открывать для просмотра.
   
   
6. Обновлены стили markdownviewer.css в UnixUtils, чтобы заработала подсветка синтаксиса при генерации Markdown. Над палитрой еще стоит поработать, но в принципе уже пригодно для работы. Сделать одинаковую палитру в браузерном плагине и в markdownviewer затруднительно, т.к. синтаксические анализаторы (prism и pandoc) по-разному классифицируют конструкции языка и свести их в одну таблицу не удается. Поэтому подсветка будет несколько отличаться в зависимости от движка.
   
   
7. Небольшие изменения (в описании цветов) в документации - crw-daq-style-guide-ru.md.
   
   
8. Обновлен редактор Origami с правками от А.Жирунова. Смотрите журнал новостей в редакторе.
   
   
9. Добавлены ДЕМО конфигурации DEMO_VMCD, DEMO_VTRD, содержащие драйверы для вакууметров от А.Жирунова.
   
   
10. Обновлены библиотеки и документация графической системы Painter. Обновились библиотеки: GuiLib, GostLib, в которые добавлены новые графические элементы, проведена оптимизация кода библиотек. Обновление подготовил Н.Гурин.
    
    
11. Обновлены ДЕМО конфигурации DEMO_PAINT_GUILIB, DEMO_PAINT_GOSTLIB, использующие графические элементы Painter. Обновление подготовил Н.Гурин.
    
    
12. DieselPascal обновлен до актуальной версии 2.0.26, которая компилируется под lazarus 2.2.4. В этой версии по моей специальной просьбе автор (Юрий Копнин) добавил следующие опции:
    
    
    • При старте сценария DieselPascal создает переменные окружения:

      DIESEL_EXE_DIR       каталог расположения исполняемых файлов Дизеля
                           например: C:\Program Files\VisualTech\DieselPascal\exewindows\
      
      DIESEL_EXE_PID       идентификатор PID текущего выполяемого процесса Дизеля
                           например: 7728
                           
      DIESEL_LOCALSET_DIR  каталог для локальных данных Дизеля
                           например: C:\Documents and Settings\main\DieselPascal\
                           
      DIESEL_SCRIPT_DIR    каталог, где расположен текущий выполняемый *.lm9 скрипт
                           например: C:\CRW32EXE\RESOURCE\
                           
      DIESEL_SCRIPT_NAME   полное имя файла текущего выполяемого *.lm9 скрипта Дизеля
                           например: C:\CRW32EXE\RESOURCE\Crw32.Utils.lm9
                   

      Указанные переменные можно использовать в дочерних процессах, запускаемых из сценария, т.к. при запуске процессов переменные окружения наследуются. Также эти переменные окружения можно использовать в опциях проекта для указания расположения внешних модулей (External), что позволяет организовать полноценную стандартную библиотеку, путь к которой вычисляется по переменным окружения (это сделано с прицелом на AstraLinux).
      
      
    • Если в каталоге расположения исполняемых файлов Дизеля ($DIESEL_EXE_DIR) расположен файл evars.cfg со списком строк вида Name=Value, то по списку из этого файла создаются дополнительные переменные окружения. Эти переменные окружения также можно использовать в дочерких процессах или для формирования имени каталога External для внешних модулей.
      
      
    • В дизайнере Дизеля, в меню "Опции\Опции проекта" на закладке "Внешние модули" теперь можно указывать расположение внешних библиотечных модулей External в виде списка, разделенного точкой с запятой (;), например:

      %DieselPascal_External%;$DIESEL_EXE_DIR\External;$DIESEL_SCRIPT_DIR\External;
                   

      При вычислении каталога External происходит выделение из списка строк, разделенных точкой с запятой, затем подстановка переменных окружения и проверка существования каталога. За результат поиска принимается первый существующий каталог в списке.
      
      
    Новые опции DieselPascal позволяют гибко управлять расположением и поиском каталога External для внешних (библиотечных) модулей. В будущем планируется сделать общую (для Windows и Linux) библиотеку, так чтобы проекты могли запускаться из обоих систем и находить нужные им библиотеки. Также возможен запуск сценариев DieselPascal с разными вариантами окружения. Например, при запуске из графической оболочки используется один вариант библиотек, а при запуске из среды пакета - другой. Новые опции сделаны с дальним прицелом на использование DieselPascal в смешанной среде (Windows-AstraLinux), где расположение файлов библиотек может меняться в зависимости от системы и окружения.

13. Обновлена утилита Crw32.Utils.LM9. На закладке Tools добавлена кнопка Run Command для запуска программ с окружением DieselPascal. Полезно для практики и тестирования.
    
    

AstraLinux
zenity
zenity-demo
crw-daq-style-guide-ru.md
lazarus 2.2.4
DieselPascal 2.0.24
daqgroup-diesel deb
daqgroup-dim deb
/opt/dim
Painter(v)
GuiLib
GostLib
DEMO_PAINT_GOSTLIB
DEMO_PAINT_GUILIB
DEMO_MDBS

1. Главными достижениями данного выпуска являются: добавление инструкции crw-daq-style-guide-ru.md по стилю программирования; добавление программы zenity под Windows; обновление и версии DIM и DieselPascal под AstraLinux; пакеты daqgroup-dim и daqgroup-diesel для AstraLinux.
   
   
2. В документацию под заголовком Style добавлена инструкция по стилю программирования crw-daq-style-guide-ru.md. Там даны рекомендации и описаны правила именования программных объектов, оформления и форматирования программного кода для повышения его качества и рассмотрены другие практические вопросы разработки прикладного ПО. Рекомендуется к ознакомлению всем участникам DaqGroup. Документ разработал (в основном) Н.Гурин.
   
   
3. В сборку UnixUtils добавлена программа zenity. Эта программа позволяет организовывать простые графические диалоги в командах и командных сценариях (bat, cmd, sh). Программа zenity разработана первоначально под Unux и работает в Windows, в Linux и под wine. Это позволяет выполнять определенные действия единообразно во всех системах. Графические возможности zenity довольно многочисленны - она содержит диалоги для информационных сообщений, подтверждения действий, ввода строк и паролей, задания календарных дат, цветовых констант и имен файлов, выбора элементов из списка, отображения прогресса длительных операций и т.д. Программу zenity можно применять как для системных сценариев (инсталляторы, программы для настройки системы), так и для прикладных программ (вызов тех или иных диалоговых команд из программ DaqPascal, мнемосхем и т.д.). Например, можно выполнять команды в Главной Консоли:

   @run -hide unix zenity --question --text "Хотите открыть редактор?" && notepad

   Также добавлена команда zenity-demo, которая иллюстрирует работу программы zenity и позволяет получить рабочие шаблоны для создания прикладного кода. Наберите в Главной Консоли:

   @run unix zenity-demo

   Программа zenity-demo выполняет примеры графических диалогов и показывает (в консоли и в log файле) команды, которые этот диалог выполняют.
   
   Поскольку команды Главной Консоли позволяют взаимодействовать с DAQ системой, через посылку сообщений можно организовывать графические диалоги, которые могут управлять работой прикладных DAQ систем, например:

   @run -hide unix zenity --title "Нужно подтверждение" --question --text "Перезапустить CronSrv?" && (printc "@daq compile &CronSrv" -n | send2crwdaq)
              

   Более сложные диалоги можно оформить в виде командных сценариев cmd, которые вызываются через главную консоль. Таким образом, программа zenity расширяет возможности системного и прикладного программирования.
   
   
4. В сборку DIM добавлена папка dim_make, содержащая дополнительные файлы для сборки (компиляции) бинарных файлов под AstraLinux, а также файлы, нужные для "дебианизации" (создания deb пакетов для семейства дистрибутивов debian) бинарной сборки. В архив включены только служебные файлы, нужные для сборки deb пакетов AstraLinux, а сами бинарные файлы копируются (после компиляции) для сборки в отведенные для этого папки. Таким образом, DIM будет собираться под AstraLinux в виде deb пакета с именем daqgroup-dim, что удобно для инсталляции. Пока что пакет будет располагаться в каталоге /srv/public/mirror/addons/astra-linux/astra-tools/daqgroup-dim репозитория DaqGroup (со временем расположение может измениться). Инсталляцию можно запускать из файлового менеджера "кликом" на deb пакет. Для удаления пакета можно использовать команду sudo apt remove daqgroup-dim;. В бинарную сборку пакета daqgroup-dim также входят ярлыки для запуска/остановки программ DNS, DID, webDID и сценарий (systemd_dimdns.sh) для запуска DIM DNS как сервиса с именем dimdns.service. После инсталляции пакета daqgroup-dim бинарные файлы находятся в рабочем каталоге /opt/daqgroup/programs/common/dimsite/dim. Каталог бинарных файлов проецируется (с помощью символичеcкой ссылки) на более удобный для использования каталог /opt/dim, который (отныне) будет постоянным каталогом расположения DIM. То есть, например, DIM DNS расположен в файле /opt/dim/dns. Таким образом, вопрос поддержки DIM под AstraLinux практически решен.
   
   
5. В сборке install-daqgroup-devel обновлен lazarus до актуальной версии 2.2.4.
   
   
6. DieselPascal обновлен до актуальной версии 2.0.24, которая компилируется под lazarus 2.2.4.
   
   
7. В репозиторий добавлена бинарная сборка DieselPascal под AstraLinux - пакет daqgroup-diesel, а также файлы, нужные для "дебианизации" (создания deb пакетов для семейства дистрибутивов debian) этой бинарной сборки. В архив включены только служебные файлы, нужные для сборки deb пакетов AstraLinux, а сами бинарные файлы копируются (после компиляции) для сборки в отведенные для этого папки. Таким образом, DieselPascal будет собираться под AstraLinux в виде deb пакета с именем daqgroup-diesel, что удобно для инсталляции. Пока что пакет будет располагаться в каталоге /srv/public/mirror/addons/astra-linux/astra-tools/daqgroup-diesel репозитория DaqGroup (со временем расположение может измениться). Инсталляцию можно запускать из файлового менеджера "кликом" на deb пакет. Для удаления пакета можно использовать команду sudo apt remove daqgroup-diesel;. В бинарную сборку пакета daqgroup-diesel также входят ярлыки для запуска проектов и средства настройки. После инсталляции пакета daqgroup-diesel бинарные файлы находятся в рабочем каталоге /opt/daqgroup/programs/common/visualtech/diesel. Каталог бинарных файлов проецируется (с помощью символичеcкой ссылки) на более удобный для использования каталог /opt/diesel, который (отныне) будет постоянным каталогом расположения DieselPascal. То есть, например, CrossDesigner расположен в файле /opt/diesel/CrossDesigner. Кроме того, бинарные файлы (CrossMachine, CrossDesigner, DManager) проецируются (симлинками) также на каталог /usr/local/bin, который находится в PATH, поэтому вызывать DieselPascal можно также по короткому имени, например:

   CrossMachine /opt/diesel/examples/tetris.lm9

   Таким образом, вопрос поддержки DieselPascal под AstraLinux практически решен.
   
   В составе сборки также реализована контрольная панель для запуска и разработки проектов DieselPascal, а также управления проектами и настройками. В частности, через панель управления можно сделать привязку типа файла (MIME тип application/x-diesel) к интерпретатору DieselPascal, чтобы файлы *.lm9 запускались автоматически по нажатию кнопки мыши. Эти дополнительные средства реализованы срествами bash+zenity. Инсталлятор также устанавливает в меню Пуск\Разработка меню для запуска DieselPascal. Таким образом, на примере DieselPascal реализован полный цикл создания инсталляционного пакета, включая интергацию в оболочку. Неплохо для начала.
   
   Интерпретатор DieselPascal уже показал свою полезность в среде Windows и пакета CRW-DAQ как средство для создания графического интерфейса утилит, работающих в консольном режиме. Поскольку под Linux мир консольных утилит огромен и весьма развит, DieselPascal несомненно будет еще более полезным в среде AstraLinux. Теперь DieselPascal можно считать штатным средством AstraLinux. В недалекой перспективе планируется проведение адаптации библиотек DieselPascal под AstraLinux, и тогда можно будет использовать его с большим эффектом.
   
   
8. Обновлены библиотеки и документация графической системы Painter. Обновились библиотеки: GuiLib, GostLib, в которые добавлены новые графические элементы (компрессоры, вакууметры, кнопки-снежинки). Обновление подготовил Н.Гурин.
   
   
9. Обновлены ДЕМО конфигурации DEMO_PAINT_GUILIB, DEMO_PAINT_GOSTLIB, использующие графические элементы Painter. В DEMO_PAINT_GUILIB входит папка GUILIB_TEST_SCALE, в которой проверяется масштабирование графических элементов. Обновление подготовил Н.Гурин.
   
   
10. Обновлена конфигурация DEMO_MDBS, в которой устранена ошибка с записью цифровых каналов (coil). Обновление подготовил А.Жирунов.
    
    
11. Можно констатировать, что работы по освоению системы AstraLinux и переходу на неё идут успешно. Решены вопросы с (стандартным) репозиторием программных пакетов в закрытой сети. Созданы основные скрипты для инсталляции системы, развертывания репозитория, настройки среды. Освоена техника создания программных пакетов для инсталляции прикладных программ. Пакеты DIM и DieselPascal портированы под AstraLinux. Работа по созданию средств поддержки AstraLinux продолжается.
    
    

DataBaseBrowser
StrTimeFmt
&FdbSrv
DEMO_TESTBENCH


Всех поздравляю
с наступающим
Новым Годом и
Рождеством.

1. Главными достижениями данного выпуска являются: добавление функции StrTimeFmt; доработка сервера &FdbSrv.
   
   
2. В этом выпуске проведена доработка &FdbSrv и DatabaseBrowser. Остальные изменения носили вспомогательный характер (для решения этих задач).
   
   
3. Сделаны мелкие улучшения в Database Browser.
   • Сделано сохранение таблиц (результатов SQL запросов) в файл.
   • Добавлено пользовательское форматирование полей даты/времени в таблицах (до миллисекунд).
   • Теперь можно также выводить дату/время в виде вещественных чисел в различных единицах.
   
   В результате встроенный Database Browser в чем-то даже превосходит другие браузеры СУБД (например, время в миллисекундах есть далеко не везде).
   
   
4. Добавлена функция StrTimeFmt(fmt,ms) для форматирования времени, аналогичная FormatDateTime, только время задается в миллисекундах от начала эры. Это (в будущем) основная функция форматирования времени, она работает существенно быстрее, чем форматирование вручную (через разложение времени на компоненты и вызовы Str,StrFix,StrFmt). Её введение связано с базами данных, где нужно быстро форматировать время в SQL запросах.
   
   
5. В демо конфигурации DEMO_TESTBENCH добавлен @Test 17 для проверки работы функции StrTimeFmt. Функция работает корректно и выдает такие результаты:

              StrTimeFmt('yyyy.mm.dd-hh:nn:ss',ms);    // 2.2 mks/call
              GetDateTime(ms); {StrTimeFmt version}    // 2.2 mks/call
              GetDateTime(ms); {StrFmt     version}    // 6.6 mks/call
              

   Вызов StrTimeFmt и функции GetDateTime на её основе занимает 2.2 микросекунды, что в 3 раза быстрее, чем вызов предыдущей версии GetDateTime на основе разложения времени на компоненты и вызова StrFmt. Быстрая функция преобразования времени нужна для формирования больших SQL запросов при работе с базами данных.
   
   
6. Библиотечная функция GetDateTime(ms) переделана через вызов StrTimeFmt, которая, как было показано, работает в 3 раза быстрее. Это положительно повлияет на производительность прикладных программ.
   
   
7. В вычислитель выражений (eval) добавлены функции MSecRangeMin(), MSecRangeMax(), задающие допустимый диапазон значений миллисекунд [0..315537897599999] в функциях времени, в диапазоне даты-времени [0001.01.01-00:00:00.000..9999.12.31-23:59:59.999]. Также заведены константы MSecRangeMin, MSecRangeMax для задания диапазона допустимых времен. Эти константы можно использовать, например, для проверки меток времени.
   
   
8. Серьезно доработан сервер &FdbSrv для сохранения данных в формате СУБД типа Firebird. Обновлено его описание. Ради этого, собственно, затевался релиз. Суть решаемой проблемы была вот в чем. Для записи данных в БД есть (принципиально) два пути - "классический", через SQL запросы, и "быстрый" через recordset (AddNew/Update). Второй метод быстрее, т.к. данные передаются в двоичном виде, без перевода в текст и обратно. Однако было обнаружено, что recordset округляет метки времени TimeStamp до секунд (в то время как базы данных могут сохранять их с высокой точностью - до миллисекунд и лучше). Поэтому если требуется сохранять данные с точностью по времени лучше секунды, то этот метод не работает. Вместо него используется классическая передача данных в SQL запросах типа insert into TABLE .... Для передачи сразу целого блока строк (а не по одной строке таблицы) используется блочный оператор, например:

     EXECUTE BLOCK AS BEGIN
      insert into "DEMO.DIM_PING.CPU_LOAD" (X_TIME,Y_VALUE) values ('2022-12-25 23:56:50.1230','1.5');
      insert into "DEMO.DIM_PING.CPU_LOAD" (X_TIME,Y_VALUE) values ('2022-12-25 23:56:51.4560','1.2');
      ...
     END
              

   При этом время передается с миллисекундной точностью. Управление сервером &FdbSrv выполняется с помощью ряда команд и параметров конфигурации, которые подробно описаны в документации. В частности, можно задавать период сохранения, точность по времени и режим передачи (быстрый или классический).
   
   Теперь сервер &FdbSrv (вроде бы) полностью готов к работе.
   На этом тема поддержки СУБД (предварительно) закрыта. Точнее, она переходит в разряд прикладных задач. Теперь прикладные разработчики могут использовать DbApi, DbLibrary и &FdbSrv для решения текущих задач автоматизации.
   
   
9. Перелистывая новости, можно констатировать, что прошедший год был довольно продуктивным. В пакет добавились Регулярные Выражения, Конечные Автоматы и Базы Данных. Неплохой результат.
   
   Всех с Новым Годом!

DbApi
DbLibrary
ParamStr
lex_SqlName
lex_FbdName
lex_Section
lex_AtCall
lex_AtCmnd
DEMO_DBQUERY
DEMO_SCE\SCE_BACC_BSTR
MsToDaqTime
DaqTimeToMs
&FdbSrv

1. Главными достижениями данного выпуска являются: обновление и доработка библиотеки DbApi; добавление функций библиотеки DbLibrary для работы с СУБД; функции времени MsToDaqTime, DaqTimeToMs; сервер &FdbSrv сохранения данных в формате Firebird; пример DEMO_DIM_PING с сохранением в &FdbSrv.
   
   
2. В этом выпуске проведена доработка библиотек DbApi, DbLibrary и средств поддержки СУБД. Сделан сервер &FdbSrv для сохранения данных в формате Firebird. Остальные изменения носили вспомогательный характер (для решения этих задач).
   
   
3. В библиотеке DbApi доработаны функции db_ctrl, db_open, добавилось несколько свойств. Изменения потребовались для поддержки обновления данных через метод db_update объекта recordset (без явного SQL запроса). Также доработана документация по функциям DbApi.
   
   
4. А.Жируновым доработана DEMO конфигурация DEMO_DBQUERY для иллюстрации функций DbApi для работы с СУБД. Теперь пример может выполнять полный набор операций с данными: просмотр, редактирование, добавление и удаление записей (строк таблиц); выполнение SQL запросов; чтение списка доступных таблиц; выбор файла БД. Для ДЕМО вполне достаточно.
   
   
5. В библиотечный модуль DbLibrary добавлен ряд новых функций для работы с СУБД. Это ряд служебных функций, облегчающих прикладное программирование, а также функции для создания новых БД, чтения списка таблиц, и т.д. Читайте документацию по DbLibrary.
   
   
6. В функцию ParamStr добавлены параметры (наборы символов регулярных выражений Posix): [:digit:], [:xdigit:], [:upper:], [:lower:], [:blank:], [:space:], [:cntrl:], [:punct:], [:alpha:], [:alnum:], [:print:], [:graph:], [:word:]. Эти наботы символов можно использовать при анализе строк, например:

              delims:=ParamStr('[:punct:]')+ParamStr('[:space:]'); // Разделители - знаки пунктуации и пробелы
              word:=ExtractWordDelims(1,Buffer,delims);            // Извлекаем слова только из букв и цифр
              

   Наборы символов кореллируют с функцией IsLexeme, которая умеет распознавать различные группы символов. Например IsLexeme(s,lex_alnum); соответстует набору [:alnum:].
   
   
7. Обновлена демо конфигурация DEMO_TESTBENCH. Там добавлен @Test 16 для проверки работы функций DbApi для recordset. Использование функций db_recordset, db_addnew, db_update позволяет выполнять запись в СУБД без явного SQL запроса, передавая данные в двоичном виде, т.е. без преобразования данных в текст SQL запроса. Это наиболее быстрый (без накладных расходов на интерпретацию SQL запроса) и точный (без ошибок округления при переводе в текст) способ добавления/изменения данных, который рекомендуется к использованию для задач, требующих высокой производительности и максимальной точности.
   
   На этом работу над DbApi и DbLibrary можно считать (предварительно) завершенной. Если не будет найдено явных ошибок, на этом Api мы будем работать еще долго.
   
   
8. Введено еще два правила для анализа лексем: lex_SqlName, lex_FbdName. Это правила именования (идентификаторов) для SQL (по стандарту) и для Firebird и ряда других популярных СУБД (это расширение стандарта - допускается символ $ в именах). Надо заметить, что правила именования в разных СУБД отличаются, например, в PostgreSQL имена могут начинаться с подчеркивания (_), а по стандарту (и в большинстве других СУБД) - нет.
   
   
9. Введено еще три правила для анализа лексем: lex_Section, lex_AtCall, lex_AtCmnd. Правило lex_Section служит для обнаружения [заголовков секций]. Правило lex_AtCall служит для быстрого определения @команд в потоке обработки данных. Правило lex_AtCmnd служит для более точного определения @команд при подготовке к обработке.
   
   
10. На панель инструментов добавлено еще несколько кнопок, изменен их порядок и группирование. Это сделано для удобства разработчиков.
    
    
11. Обновлен DatabaseBrowser, добавлены шпаргалки по SQL и внесены мелкие правки в связи с тем, что таблицы и поля могут иметь имена в кавычках, например, "EGP.DATA.TABLE". Такие имена можно использовать для таблиц и полей, которые не попадают под правила простых имен SQL - см. lex_SqlName.
    
    
12. В текстовом редакторе добавлена команда Reopen (ПереОткрыть файл). Эта команда считывает заново редактируемый текст из файла. Команда используется с ситуации, когда текст был отредактирован в другом редакторе и надо загрузить новую версию текста из файла.
    
    
13. В текстовом редакторе добавлен монитор, который автоматически отслеживает актуальность текста в текстовом редакторе по метке времени и размеру файла. Этот монитор включается/отключается параметром системной конфигурации Crw32.ini [System] Timer_MonitorTextEditor.
    
    
14. Небольшая доработка (устранение мелких недочётов) ДЕМО системы управления SCE_BACC_BSTR вакуумной системой бустера на базе Конечных Автоматов проведена Н.Гуриным.
    
    
15. Обновлен модуль StdTimes. В него добавлены функции преобразования единиц времени: MsToDaqTime(ms), DaqTimeToMs(tm). Это функции перевода единиц времени основных функций времени time и msecnow. Перевод между этими единицами несложен и делался обычно напрямую, через формулу: msecnow=TimeBase+(Time*TimeUnits). Однако лучше использовать явные функции преобразования, чтобы исключить возможные ошибки при воспроизведении формул. Теперь такие функции есть.
    
    Обычно время в кривых хранится в единицах time, а в алгоритмах управления чаще используется msecnow. Новые функции преобразования времени помогут переводить время в нужные для расчетов единицы.
    
    
16. Сделана массовая замена (изменения коснулись 218 файлов) в шаблоне программ DaqPascal. Причина в том, что последовательность символов <== оказалась "токсичной" для Notepad++, который воспринимает их как начало комментария HTML (хотя это не соответствует определению - комментарий HTML начинается с <!==). Это создавало определенные проблемы - ломалось форматирование при редактировании Markdown, в которые включался шаблон. По иронии судьбы, изменения коснулись строки:

                {$I _std_main}{<== Please never change this code ***}
    
                заменился на
    
                {$I _std_main}{*** Please never change this code ***}
               

    Поскольку изменения проходили автоматоматическим алгоритмом (утилита TextReplacer), причем большим блоком текста, исключающим случайности, то я не ожидаю от замены каких-то проблем. Однако, учитывая большое число затронутых файлов, надо быть готовым к любым неожиданностям.
    
    
17. В стандартной библиотеке StdLib:
    • Функция IsSectionName(s) реализована через IsLexeme(s,lex_Section).
    • Функция LooksLikeCommand(s) реализована через IsLexeme(s,lex_AtCmnd).
    • Функция GotCommand(data,cmd,arg) реализована через IsLexeme(s,lex_AtCall).
    • Функция GotCommandId(data,cmd,arg,cmdid) реализована через IsLexeme(s,lex_AtCall).
    Это должно работать быстрее и точнее.
    
    
18. В шаблоне template.pas стандартной библиотеки StdLib и в шаблоне утилиты DaqCreator добавлена техника Cleanup (там где это уместно). Эта техника (использовавшаяся ранее в ряде прикладных программ) была объявлена в предыдущем релизе, а теперь закреплена и описана в документации DaqPascal. Используйте её для повышения надежности прикладного кода.
    
    
19. В окне редактирования программ DaqPascal сделана кнопка вызова консоли устройства. При разработке это удобно, т.к. консоль часто нужна для просмотра отладочных сообщений. Теперь консоль устройства всегда будет под рукой.
    
    
20. В пакет добавлен сервер &FdbSrv для сохранения данных в формате СУБД типа Firebird. Имеется описание.
    
    
21. В стандартной библиотеке StdLib добавлена поддержка &FdbSrv: константа FdbSrv с именем &FdbSrv, переменная devFdbSrv со ссылкой на сервер.
    
    
22. Обновлена тестовая система DEMO_DIM_PING. В ней сделано сохранение данных (списка кривых) с помощью сервера &FdbSrv. Это пример использования сервера &FdbSrv в прикладных системах.
    
    
23. Сделаны мелкие улучшения в Database Browser.

GetStringVar
Cleanup
DbApi
DbLibrary
Guard
ShortCut
DEMO_SCE\SCE_BACC_BSTR
DEMO_DBQUERY

1. Главными достижениями данного выпуска являются: обновление библиотеки DbApi; обновление функции GetStringVar; доработка средств защиты (Guard) и системного меню; добавление функций библиотеки DbLibrary для работы с СУБД; доработка демо конфигурации DEMO_SCE\SCE_BACC_BSTR для иллюстрации Конечных Автоматов.
   
   
2. В этом выпуске проведена доработка библиотек DbApi, DbLibrary и средств поддержки СУБД. Доведена до рабочего состояния демо конфигурация DEMO_SCE\SCE_BACC_BSTR для иллюстрации Конечных Автоматов. Также доработана служба защиты (уровни доступа) и системное меню - они сделаны настраиваемыми.
   
   
3. В библиотеке DbApi доработаны функции db_ctrl, db_recordset, добавилось свойство Source (это SQL команда для чтения записей). Изменения потребовались для поддержки обновления данных через метод db_update объекта recordset (без явного SQL запроса).
   
   
4. В стандартной библиотеке доработана функция GetStringVar(Text,Name,Value). Прежняя версия читала ВСЕ выражения "Name=Value" в тексте (Text), так что (в случае наличия дубликатов) принималось ПОСЛЕДНЕЕ из них. Это противоречило поведению других функций (например, чтения конфигурации). Обычно принимается ПЕРВОЕ найденое выражение, подходящее по условиям поиска (это к тому же быстрее). Теперь функция переработана и оптимизирована и должна работать быстрее и правильнее. Доработка функции была нужна для корректной работы библиотеки DbLibrary.
   
   
5. В практику прикладного программирования рекомендуется ввести технику Cleanup, описанную ниже.
   Мотивация - дисциплинировать разработчиков в плане корректной работы с ресурсами (строками, объектами) в модулях (процедурах и функциях). Идея состоит в том, чтобы выделить очистку всех локальных ресурсов в отдельную локальную процедуру Cleanup. Это облегчит проверку очистки и её самосогласованность (т.к. очистка делается в двух местах - при входе и выходе из процедуры/функции). В шаблоны редактора DaqPascal добавлены процедуры и функции, содержащие подпрограммы очистки Cleanup для корректной работы со строками и другими ресурсами. Например:

      {
      Return string with reverse chars order.
      }
      function ReverseStr(arg:String):String;
      var s:String; i:Integer;
       procedure Cleanup;
       begin
        s:=''; // Здесь делаем очистку всех локальных строк.
       end;
      begin
       Cleanup;
       for i:=Length(arg) downto 1 do s:=s+arg[i];
       ReverseStr:=s;
       Cleanup;
      end;
              

   Использование процедуры Cleanup с очисткой строк и (возможно) других переменных гарантирует корректную работу менеджера строк, облегчает программирование (т.к. очистка переменных теперь делается в одном месте, а не в двух). Имя процедуры очистки (Cleanup) можно считать стандартным (рекомендуемым). Поскольку это локальная процедура, она может использоваться без ограничений в любом числе процедур и функций.
   
   Для корректной работы со строками теперь достаточно двух простых правил:
   1. вызывать локульную очистку Cleanup в начале и в конце процедуры/функции, и
   2. в процедуре Cleanup инициализировать пустой строкой все строки, объявленные локально в процедуре/функции.
   
   Процедуру очистки Cleanup рекомендуется размещать сразу после объявления локальных переменных, чтобы было легко увидеть, какие именно переменные очищаются. Очистку рекомендуется делать компактно, в порядке объявления переменных, чтобы легче было проверить полноту их списка. Размещение каждого оператора в отдельной строке в данном случае неуместно, т.к. лишь затрудняет чтение. Например:

       procedure Something(...);
       var a,b,c,d,e,f:String;
        procedure Cleanup;
        begin
         a:=''; b:=''; c:=''; d:=''; e:=''; f:='';
        end;
        ...
       begin
        Cleanup;
        ... Do Something ...
        Cleanup;
       end;
              

   В более сложных случаях, например, при наличии локальных объектов (регулярных выражений, текстов, задач и т.д.), которые надо инициализировать в начале и освобождать в конце, можно исспользовать расширенную модификацию техники Cleanup, включающую параметр (how) для различения способа очистки - инициализация (how<>0) или завершение (how=0). Например:

      {
      Return string with reverse lines order.
      }
      function ReverseLines(arg:String):String;
      var s:String; lines,i:Integer;
       procedure Cleanup(how:Integer);
       begin
        s:='';                                                    // Здесь делаем очистку всех локальных строк.
        if (how<>0) then lines:=text_new else FreeAndZero(lines); // Инициализируем/освобождаем локальные объекты.
       end;
      begin
       Cleanup(1);
       iNul(StringToText(lines,arg));
       for i:=text_numln(arg)-1 downto 0 do s:=s+text_getln(lines,i)+LineEnding;
       ReverseLines:=s;
       Cleanup(0);
      end;
              

   Использование Cleanup является универсальной (применимой всегда) техникой программирования, которая дисциплинирует и делает программы надежнее, а потому рекомендуется к использованию во всех прикладных программах.
   
   
6. В библиотечный модуль DbLibrary добавлен ряд новых функций для работы с СУБД. Это, например, функции для организации чтения списка всех таблиц (на основе библиотеки шаблонов). Читайте документацию.
   
   
7. Проведена доработка средств Защитника Guard, который теперь сделан конфигурируемым. Теперь для каждого защищаемого действия в секции Crw32.ini [Guard.Permissions] прописан уровень доступа (Lock, Guest, User, Root), нужный для выполнения этого действия. Например:

       [Guard.Permissions]
       TFormCircuitWindow.ClickSensor require Guest  ; разрешения по умолчанию для нажатия сенсоров
       TProgramDevice.ConsoleInput    require Root   ; разрешения для консоли прикладной программы
       ... и так далее ...
              

   Для сенсоров введен параметр GuardLevel, который задает персональный уровень доступа Защитника для данного сенсора. Если этот параметр не заадан, для сенсора используется значение по умолчанию, заданное в TFormCircuitWindow.ClickSensor. Для проверки работы этого свойства в конфигурации DEMO_DIM_PING защищена кнопка "Инструменты" на панели инструментов главной мнемосхемы. Эта кнопка теперь нажимается только на уровне Root. Остальные сенсоры имеют уровень по умолчанию Guest.
   
   Хотя Защитник используется довольно редко, он является необходимой частью системы. Его доработка давно стояла в очереди на выполнение. Теперь он должен функционировать как положено.
   
   
8. Проведена доработка системного меню пакета, которое теперь сделано конфигурируемым. Теперь для каждого пункта меню в секции Crw32.ini [System.Menu.ShortCut.Table] прописана горячая клавиша (ShortCut) или 0, если не она задана. Теперь горячие клавиши меню можно менять, не меняя программного кода пакета.

9. Николай Гурин серьезно доработал ДЕМО систему управления SCE_BACC_BSTR вакуумной системой бустера на базе Конечных Автоматов, доведя её до рабочего состояния. Это модельная система, т.е. (абстрактная) симуляция некоторой гипотетической вакуумной системы, для иллюстрации управления с помощью Конечных Автоматов. Модельная система служит для отладки библиотек, демонстрации работы Конечных Автоматов, а также в качестве прототипа для создания будущих систем управления такого вида. А сейчас это готовое учебное пособие для ознакомления с технологией построения распределенных модульных систем управления на принципе Конечных Автоматов. Этот пример будет дорабатываться в следующих версиях пакета.
   
   Можно констатировать успешное завершение первого этапа разработки средств поддержки Конечных Автоматов.
   На втором этапе будет идти доработка и "причесывание" этих средств, чтобы сделать технологию Конечных Автоматов более удобной, пригодной для работы прикладных программистов средней квалификации. Третьим этапом будет внедрение, т.е. широкое применение технологии Конечных Автоматов для создания прикладных систем управления.
   
   
10. Алексей Жирунов обновил (доработал) DEMO конфигурацию DEMO_DBQUERY для иллюстрации функций DbApi для работы с СУБД. Теперь ДЕМО умеет не только отображать, но и редактировать таблицы: менять записи или добавлять новые записи. Пока что это сделано простейшим методом (через SQL запросы). В будущем (возможно) будет вариант с записью в таблицы через Recordset (это более быстрый метод обмена данными).
    
    Так или иначе, библиотека DbApi для работы с СУБД функционирует и пригодна для применения в прикладных задачах.
    
    Можно констатировать успешное завершение первого этапа разработки средств поддержки Баз Данных.
    На втором этапе будет идти доработка и "причесывание" этих средств, чтобы сделать библиотеку DbApi/DbLibrary более удобной, пригодной для работы прикладных программистов средней квалификации. Третьим этапом будет внедрение, т.е. широкое применение Баз Данных с библиотекой DbApi/DbLibrary для создания прикладных систем управления.

Markdown


FreeAndZero
DbLibrary
db_build_connectionstring
poseol
task_readln
pipe_readln
com_readln

1. Главными достижениями данного выпуска являются: доработка средств поддержки языка разметки документов Markdown; документация по Markdown; сервисная процедура FreeAndZero; добавление функций библиотеки DbLibrary для работы с СУБД; добавление функции poseol; обновление функций task_readln, pipe_readln, com_readln.
   
   
2. Этот выпуск посвящен доработке средств поддержки формата Markdown и документации к нему. Также продолжена работа по поддержке СУБД - обновлена библиотека DbLibrary. Кроме того, добавлены/обновлены важные функции (poseol, task_readln, pipe_readln, com_readln), связанные с обработкой строк. Необходимость доработки этих функций связана с тем, что в гибридных системах (Windows, Linux, контроллеры) маркеры конца строки (EOL) могут отличаться от CRLF и их требуется корректно обрабатывать.
   
   
3. Доработано браузерное дополнение (addon) MarkdownViewer. Это дополнение работает в Windows/Linux и Firefox/Chrome и позволяет отображать файлы Markdown. Дополнение небольшое (300кб) и универсальное, поэтому его было решено включить в основной пакет runtime (а также commander). Инсталляция делается вручную (т.к. браузер все равно запрашивает подтверждение на установку).
   
   
4. Собрана документация по языку Markdown и создан файл описания daqgroup_markdown_manual для ознакомления с языком Markdown и с особенностями его версии для DaqGroup, который должен прочитать каждый разработчик DaqGroup.
   
   
5. В пакете предприняты меры поддержки формата Markdown (чтобы справки правильно открывались и т.д.). Отныне формат Markdown может считаться одним из основных форматов технической документации пакета. Разработчикам рекомендуется использовать Markdown для создания справочных файлов в новых системах, а также разной сопроводительной документации (журналы, протоколы, рабочие записи). Формат Markdown прост и хорошо приспособлен для этого.
   
   
6. В стандартную библиотеку добавлена сервисная процедура FreeAndZero(ref) для удаления и обнуления ссылки динамического объекта любого типа, поддерживаемого в DaqPascal, см. RefInfo(ref,'Type'). Особенно внимательно изучите дисциплину работы со ссылками. Это позволит создавать более надежные программы.
   
   
7. В библиотечный модуль DbLibrary добавлен ряд новых функций для анализа данных СУБД (функции проверки и сопоставления типов данных, преобразования даты/времени). Также создана группа функций для составления строк подключения (ConnectionString) на основе библиотеки шаблонов. Читайте документацию.
   
   
8. В диалоге Инструменты\Браузер Баз Данных на закладке Account сделан генератор кодированных паролей для баз данных. Эти пароли согласованы с функцией db_build_connectionstring и служат для того, чтобы можно было заносить в коды программ или конфигурационные файлы пароли для доступа к базам данных, но которые нельзя просто так узнать. Закодированные пароли имеют смысл только для вызова db_build_connectionstring, которая умеет их декодировать. Кодирование паролей делается одним из 8 методов (Blowfish,GOST,RC2,RC4,RC5,RC6,BASE64,HEX). Два из последних метода слабо защищены (легко декодируются), остальные дают достаточную защиту (рекомендуемый метод RC6, mode=6). Используется это как-то так:

       pwd:='2aKRkiKfZr67'; // Password encrypted with mode 6
       cs:=db_build_connectionstring('Firebird','localhost','employee.fdb','SYSDBA',pwd,'dialect=3;pagesize=1024;',6);
              

   Функция db_build_connectionstring задумана в качестве основной функции для генерации строк подключения. Она основана на библиотеке шаблонов строк подключений, которая хранится в системном INI файле. При вызове функция ищет в списке шаблонов строку по заданным ключевым словам, а затем заменяет в ней переменные параметры подключения (имя сервера, имя базы данных, имя пользователя, пароль), а также добавляет необязательный список дополнительных опций. Пароль может быдь закодирован, режим кодирования (mode) указывается при вызове.
   
   
9. В компиляторе DaqPascal снято ограничение на длину строковых литералов (строковых констант), которая была равна 132 символам. Теперь ограничение поднято до 240 символов (т.е. до максимальной длины строки).
   
   
10. В функции WordDelims сделана возможность сброса набора символов - разделителей слов в исходное состояние [\t\r\n ,;=] вызовом s:=WordDelims(Dump(0));. Кроме того, в процедуре старта программ DaqPascal также сделан сброс WordDelims в исходное состояние. Это защитит программу от сбоев при ошибках, связанных с неверным заданием символов-разделителей, если нарушается логика работы worddelims (напомним - при каждой операции с символами разделителей слов надо обязательно в начале сохранять, а в конце восстанавливать стандартные символы разделителей).
    
    
11. Добавлена функция PosEol для анализа строк в гибридной сетевой среде, где могут встречаться разные маркеры конца строки (EOL, end of line). Её рекомендуется использовать вместо Pos(CRLF,data) при анализе потоков данных (в драйверах), т.к. в сетевом потоке могут присутствовать данные с другими разделителями (маркерами конца строки). Например, в Linux используется LF, а в контроллерах - часто используется CR. Ориентация только на CRLF в сетевой среде ненадежна.
    
    
12. Обновлена демо конфигурация DEMO_TESTBENCH. Там сделана документация (help) полностью на Markdown, а также добавлены новые примеры работы с БД. Кроме того, там сделан @Test 15 для проверки работы функции PosEol.
    
    
13. В библиотечных функциях Task_Readln, Pipe_Readln, Com_Readln анализ буфера теперь сделан на PosEol. Коды функций значительно упростились и (вероятно) ускорились, т.к. в прикладном коде теперь не надо делать довольно сложный анализ маркеров CR,LF. Эти сложности теперь скрыты за вызовами PosEol. Будем надеяться, что при этом ничего не поломалось. На всякий случай старые версии модулей сохранены в каталоге obsolete.

DbApi
DbLibrary
Markdown
MarkdownViewer
Polling.UseMsgPump
Polling.Delay
Polling.ThreadID
Polling.Priority
MsToUnixTime
UnixTimeToMs
MsToJavaTime
JavaTimeToMs
MsToFileTime
FileTimeToMs
MsToWinsTime
WinsTimeToMs
MsToOleTime
OleTimeToMs
tag_type_nil
tag_type_int
tag_type_real
tag_type_string
DEMO_APC
DEMO_IPPON
DEMO_BIRGER
DEMO_EM2RS
DEMO_DBQUERY
FavoriteCommands

1. Главными достижениями данного выпуска являются: средства поддержки языка разметки документов Markdown; доработка потоковой модели и процедуры завершения программ DaqPascal; доработка модуля StdTimes - добавление функций преобразования единиц времени; инструмент Database Browser для работы с СУБД; доработка функций DbApi и библиотеки DbLibrary для работы с СУБД.
   
   
2. Этот выпуск посвящен доработке функций DbApi и библиотек (DbLibrary, SmiProxy, StdTimes), а также языку разметки документов Markdown. Кроме того, выполнена доработка потоковой модели опроса (Polling) и связанной с этим процедуры остановки программ DaqPascal.
   
   
3. Поправлены ошибки обнаруженные в справочном файле по теме DbApi.
   
   
4. В сборку пакета добавлена поддержка языка разметки документов Markdown. Этот язык ставит целью облегчение создания технической документации. Он прост, компактен и удобен. В будущем, вероятно, значительная часть документации будет делаться в Markdown. Язык разметки Markdown гораздо проще HTML, но позволяет получать хорошо отформатированные тексты, удобные для чтения. При этом важно, что текст на Markdown выглядит читабельно при редактировании в обычном текстовом редакторе, поэтому хорошо подходит для "полевых" условий, когда могут быть недоступны специальные средства просмотра Markdown. В крайнем случае документ можно прочитать как простой текст.
   
   По договоренности, файлы Markdown могут иметь расширения: .md (как основное), .mkd, .mkdn, .mdwn, .mdown .markdown (как дополнительные). Кодировка символов не регламентируется, но (на будущее) рекомендуется сохранять Markdown файлы в кодировке UTF-8-BOM.
   
   Поддержка Markdown сделана комплексно:
   • Команда unix MarkdownViewer filename.md "на лету" конвертирует файл Markdown во временный файл HTML и отображает его в Firefox. Команда доступна в Главной Консоли пакета, а также в панели инструментов Commander - кнопка . Внутри себя команда MarkdownViewer использует команды конвертеров pandoc.exe или markdown.pl. Команду MarkdownViewer можно использовать, например, для вызова справки в формате Markdown по кнопке из DAQ-системы.
   • В редакторе Notepad++ добавлено два расширения MarkdownViewer++ и NppMarkdownPanel для отображения и редактирования Markdown файлов.
   • Для браузера Firefox подготовлено три дополения (в формате .xpi) и инсталлятор, который можно вызвать из панели инструментов Commander (раздел Multimedia).
   • Во всех перечисленных инструментах в меру возможностей сделан единый (по крайней мере похожий) стиль оформления, напоминающий стиль этого справочного файла.
   • Собрана документация по Markdown - в формате Markdown. Её достаточно, чтобы овладеть техникой создания документации в формате Markdown.
   В планах на будущее - постепенный перевод технической документации на Markdown.
   По крайней мере, новую документацию теперь можно создавать на Markdown.
   
   
5. Добавлены DEMO для DAQ-системы от Э.Братишки: DEMO_APC, DEMO_IPPON, DEMO_BIRGER с драйверами соответсвующих устройств. Сделано красиво, хорошая работа.
   
   
6. Как было обещано в прошлом релизе, доработана потоковая модель процедуры остановки (Stop) для программ DaqPascal. В предыдущей версии программы DaqPascal стартовали и опрашивались в своем собственном программном потоке (что логично), но завершались в основном потоке (что вообще-то нелогично). Это было сделано для экономии времени разработки. Такое поведение (ранее) было безразлично для прикладных систем, однако (теперь) для программ, (неявно) использующих COM-объекты (например, регулярные выражения на движке VBScript.RegExp или базы данных на движке ADO), это создает потенциальные проблемы, т.к. COM-объекты обычно привязаны к потоку (потоковая модель COM STA, single-threaded apartment). Если COM-объекты создаются в одном потоке, использовать и завершать их надо в том же потоке.
   
   В новой версии пакета процедуры остановки (Stop) для программ DaqPascal выполняются в собственном программном потоке, в котором происходили старт и цикл опросов. Для синхронизации потоков применяется комбинация временного запрета потоков и переменных-флагов, сигнализирующих о старте/завершении. Процедура должна работать корректно, но все же надо внимательно понаблюдать, не сломалось ли что-нибудь. Для контроля потоковой дисциплины также введен счетчик (TProgramDevice.PollingViolationCounter), который фиксирует факты нарушения потоковой модели (т.е. вызова программ в неверном потоке).
   
   Теперь все (потоковые) ограничения на использование объектов DbApi сняты. Библиотека должна работать корректно.
   
   
7. В предыдущей версии пакета найдена серьезная ошибка (TPolling.Execute), которая может проявляться в снижении производительности при большом числе потоков (программ DaqPascal) и нестабильной работе объектов COM. Суть ошибки в том, что стандартная пара вызовов CoInialize/Couninitialize делалась не в начале/конце потока (как нужно), а в каждом цикле опроса (что избыточно и вообще неверно). Ошибка внесена по невнимательности при адаптации потоков TPolling к объектам COM. Использования этой версии (20221106) следует избегать.
   
   
8. Доработан цикл опроса потоков (TPolling) для удовлетворения требований потоковой модели COM STA. Исправлена ошибка, описанная выше.
   
   Также в потоки опроса (TPolling) добавлены циклы обработки сообщений (в литературе их называют message pump) по типу while PeekMessage(m,0,0,0,PM_REMOVE) do DispatchMessage(m). Обработка очереди сообщений - требование модели COM STA, который её (возможно) использует. Если очередь сообщений не используется, цикл просто ничего не делает. Накладные расходы при этом вроде бы невелики (незаметны).
   
   
9. Тем не менее использование обработки сообщений в потоках опроса (TPolling) сделано опциональным, т.к. оно нужно далеко не всегда. Параметр Crw32.ini [System] TPolling.DefMsgPump задает значение по умолчанию для глобального флага использования цикла сообщений в потоках опроса (сейчас - 0, т.е. отключено, как и было ранее). При необходимости цикл опроса конкретного потока (программы) читается или задается через вызов ParamStr('Polling.UseMsgPump'):

              sNul(ParamStr('Polling.UseMsgPump 1'));                  // Поток опроса теперь использует очередь сообщений
              writeln('UseMsgPump='+ParamStr('Polling.UseMsgPump'));   // Узнать использует ли программа очередь сообщений
              

   Использование очереди сообщений надо включать (при старте программы DaqPascal), если в ней используются COM объекты, например, объекты ADO при использовании функций DbApi доступа к СУБД.
   
   
10. Заодно другие важные параметры опроса (TPolling) сделаны доступными для чтения/записи через вызовы Polling.Delay: Polling.Priority: Polling.ThreadId:

               sNul(ParamStr('Polling.Delay 50'));                      // Теперь период опроса 50 ms
               writeln('Period='+ParamStr('Polling.Delay'));            // Узнать период опроса потока
               sNul(ParamStr('Polling.Priority tpHighest'));            // Теперь приоритет tpHighest
               writeln('Priority='+ParamStr('Polling.Priority'));       // Узнать приоритет потока
               writeln('ThreadId='+ParamStr('Polling.ThreadId'));       // Узнать идентификатор потока
               

    Теперь фактически можно управлять потоками опроса программ DaqPascal динамически, в том числе через сообщения типа DevPostCmd(dev,'@ParamStr Polling.Priority tpTimeCritical'). Однако злоупотреблять этим, конечно, не стоит.
    
    
11. В стандартный модуль DbLibrary включено задание Polling.UseMsgPump 1 при старте. Это значит, что модуль сам настраивает потоковую модель опроса (включая очередь сообщений), нужную для использования COM объектов, так что прикладному программисту не надо об этом заботиться. Работаете с СУБД - включаете стандартный модуль DbLibrary - получаете всё что надо.
    
    
12. В стандартный модуль StdLib включена печать параметров потока опроса Polling при старте. Это полезно прикладному программисту для напоминания об используемых параметрах опроса потоков.
    
    
13. Значение "по умолчанию" для максимальной длины строк (Compiler.slenmax) в DaqPascal увеличено до 8 MB. Это сделано на случай больших текстов при создании SQL запросов в DbApi.
    
    
14. Обновлен модуль SmiProxy: изменено поведение процедур smi_set_state, smi_terminate_action и smi_move_to.

                // Сохранение текущего состояния:
                smi_set_state('');                  // эквивалентно smi_set_state(smi_proxy_state_name)
                smi_terminate_action('');           // эквивалентно smi_terminate_action(smi_proxy_state_name)
                smi_move_to('');                    // эквивалентно smi_terminate_action(smi_proxy_state_name)
                
                // Задание ошибочного состояния, которого нет в списке состояний прокси-объекта:
                smi_set_state('BAD STATE');         // генерирует ошибку и вызывает smi_set_state(smi_proxy_state_name)
                smi_terminate_action('BAD STATE');  // генерирует ошибку и вызывает smi_terminate_action(smi_proxy_state_name)
                smi_move_to('BAD STATE');           // генерирует ошибку и вызывает smi_terminate_action(smi_proxy_state_name)
               

    Это изменение связно с тем, что при попытке задать неизвестное состояние FSM переходится в состояние &UNDEFINED_STATE и застревает в нем (до перезапуска FSM). Поэтому сделана проверка наличия состояния, в которое хотим переходить. Это предохраняет прикладного программиста хотя бы от грубых ошибок. Если новое состояние неверно, сохраняется текущее состояние. Это логично.
    
    
15. Обновлен модуль StdTimes. В него добавлены константы JavaTimeBase, JavaTimeUnit, UnixTimeBase, UnixTimeUnit, FileTimeBase, FileTimeUnit, WinsTimeBase, WinsTimeUnit, OleTimeBase, OleTimeUnit и функции преобразования единиц времени: MsToUnixTime(ms), UnixTimeToMs(tm), MsToJavaTime(ms), JavaTimeToMs(tm), MsToFileTime(ms), FileTimeToMs(tm), MsToWinsTime(ms), WinsTimeToMs(tm), MsToOleTime(ms), OleTimeToMs(tm). В компьютерных системах используется много разных единиц времени, их надо уметь преобразовывать в нужные нам единицы. Охваченные библиотекой единицы времени приведены в таблице.
    
    Необходимость функций времени связана, в первую очередь, с DbApi, где время может задаваться в различных форматах.
    
    
16. Добавлена DEMO конфигурация для DAQ-системы от А.Жирунова: DEMO_EM2RS, с драйвером шагового двигателя.
    
    
17. Обновлены Origami, Kirigami с мелкими правками от А.Жирунова.
    
    
18. В DaqPascal добавлены константы типа тегов: tag_type_nil, tag_type_int, tag_type_real, tag_type_string.
    Это давно было пора сделать для улучшения читабельности прикладных программ. Теперь это доступно.
    В новых программах рекомендуется использовать:

               вместо  if typetag(tag)=0 ...  ==>  if typetag(tag)=tag_type_nil ...
               вместо  if typetag(tag)=1 ...  ==>  if typetag(tag)=tag_type_int ...
               вместо  if typetag(tag)=2 ...  ==>  if typetag(tag)=tag_type_real ...
               вместо  if typetag(tag)=3 ...  ==>  if typetag(tag)=tag_type_string ...
               

    Использование численных констант по-прежнему возможно (кто привык), но для читабельности кода символьные константы предпочтительнее (особенно новичкам).
    
    
19. В библиотечный модуль DbLibrary добавлен ряд новых функций для анализа данных СУБД. Читайте документацию.
    
    
20. При старте DAQ системы добавлен вывод в консоль информации об ошибках и проблемах загрузки, чтобы сразу были видны значения счетчиков ошибок.
    
    
21. При выполнении команды @help в консоли устройства DaqPascal теперь, кроме печати справки в консоли этого устройства, проверяется наличие одноименных с исходным .pas файлом справочных файлов (.htm или .md; у файла .htm - приоритет). Если такие файлы найдены, то они открываются в браузере. Это позволяет делать справочные файлы в формате HTML или Markdown. А вот печать в Главную консоль теперь (по умолчанию) отключена. Режим печати справки устройства в Главной Консоли можно включить/выключить вызовом @help echo 1/0. Также можно включить/отключить режим вывода справки в браузере командой @help browse 1/0. Новое свойство команды @help позволяет быстро создавать компактную и качественную справку по программам в виде файлов .md. на языке Markdown. Пример приведен в конфигурации DEMO_TESTBENCH. Язык Markdown очень удобен для создания справок по программам в силу своей простоты и компактности. Теперь для каждого программного файла .pas можно (и рекомендуется) заводить его описание в формате Markdown в одноименном файле .md, и оно будет вызываться по команде @help. Это удобно для разработчиков. Например, при разработке драйверов в файле .md можно хранить описание этого драйвера.
    
    
22. В разделе Crw32.ini [DaqSys.DeviceConsole.FavoriteCommands] заведен список наиболее популярных команд, часто используемых в консоли устройств. Этот список теперь загружается в "историю ввода" консоли устройств, который связан с "выпадающим списком" в поле "Input" консольного окна каждого программного устройства. Так что теперь при загрузке системы часто используемые команды будут под рукой.
    
    
23. В разделе меню Link\Home\Install добавлен инсталлятор дополнений Firefox для поддержки Markdown. Это "довесок" 1.5МВ к основному дистрибутиву, но зато всегда будет под рукой.
    
    
24. Добавлена DEMO конфигурация DEMO_DBQUERY для иллюстрации функций DbApi для работы с СУБД. Пока эта конфигурация работает только с SQLite и имеет ограниченный набор возможностей. В будущем пример будет, возможно, доработан.
    
    И кстати, справочный файл для DEMO_DBQUERY создан в формате Markdown. Такая справка весьма компактна и создается очень быстро.
    
    
25. В сборке движков engines теперь есть DieselPascal, Tcl/Tk, Python, Perl, NodeJs, Ruby. У нас активно используются DieselPascal (для утилит пакета) и Tcl/Tk (используется в SMI). Язык Perl добавлен потому что на нем написан классический интерпретатор (Markdown.pl). Остальные движки собраны "на всякий случай", в связи с их высокой популярностью. Это позволяет создавать и выполнять скрипты на любом из этих языков.
    
    
26. В разделе меню Инструменты добавлен Браузер Баз Данных для поддержки СУБД. Этот браузер сделан на базе функций DbApi, поэтому всё что работает там, будет работать и в DaqPascal. Браузер позволяет формировать строки запроса, подключаться к СУБД, выполнять SQL запросы к СУБД, считывать данные из СУБД в таблицы. Это незаменимый инструмент работы с СУБД, позволяющий быстро проверить доступность серверов СУБД, проверить работу SQL команд и т.д.
    
    
27. В секции описания устройств добавлен параметр FavoriteCommands, в котором указывается имя секции, в которой находится список "любимых команд" для данного устройства. Этот список команд будет появляться в выпадающем списке Input консоли данного устройства. Пример есть в конфигурации DEMO_TESTBENCH.

                [&testbench]
                FavoriteCommands = [&testbench.FavoriteCommands]
                []
                [&testbench.FavoriteCommands]
                @Help
                @DebugFlags 3
                @DebugFlags 15
                @Test 0
                @Test 1
                ... и так далее ...
                []
               

    Если список любимых команд не нужен, вместо секции можно поставить прочерк (-). Если список любимых команд не указан, используется список "по умолчанию" из системной конфигурации.

DbApi
db_create
db_connection
db_recordset
db_command
db_free
db_ref
db_root
db_type
db_parent
db_state
db_close
db_open
db_ctrl
db_bugscount
db_bugsclear
db_errors
db_errorscount
db_errorsclear
db_execute
db_cancel
db_update
db_cancelupdate
db_begintrans
db_committrans
db_rollbacktrans
db_bof
db_eof
db_movefirst
db_movelast
db_movenext
db_moveprevious
db_fieldscount
db_fieldsnames
db_fieldstypes
db_fieldsasint
db_fieldsasfloat
db_fieldsasstring
db_addnew
db_delete
db_requery
db_resync
db_supports
db_save
DEMO_TESTBENCH

1. Главными достижениями данного выпуска являются: добавление большой библиотеки функций DbApi для работы с СУБД.
   
   
2. Этот выпуск посвящен добавлению библиотеки функций DbApi в компилятор DaqPascal, позволяющий работать с Базами Данных (СУБД).
   
   
3. Добавлена группа (43) функций DbApi - db_xxxx, которая позволяет работать с Базами Данных (СУБД). Библиотека построена на принципе движков (engines), т.е. предполагает единый программный интерфейс, при возможности разных его реализаций.
   
   В настоящее время реализован один движок на базе ADO. Возможно, со временем появятся другие движки (с сохранением того же API).
   Технология ADO (active data objects) базируется на COM объектах и предполагает единый программный интерфейс для доступа ко всем СУБД, что предполагает наличие драйверов (их называют провайдерами - provider), адаптирующих конкретную СУБД к интерфейсу ADO. То есть это работает примерно так:

              
               ______________                  ___ Provider 1 --- Interbase/Firebird
              | DAQ-system  |                 |
              | Application | -- DbApi -- ADO ---- Provider 2 --- MS SQL Server
              |__DaqPascal__|                 |
                                              |___ Provider 3 --- MySQL, etc
              

   Для Interbase/Firebird есть свободно распространяемый в исходных кодах драйвер ODBC Driver for Firebird, разработанный группой Phoenix. Этот драйвер позволяет использовать встроенный в Windows провайдер MSDASQL для доступа к СУБД Firebird. Этот драйвер входит в сборку install-daqgroup-database и устанавливается автоматически, что сразу делает его доступным при инсталляции указанного пакета.
   Также для Interbase/Firebird есть свободно распространяемый провайдер IBProvider, идентифицируемый именем LCPI.IBProvider.5.Free. Он входит в сборку install-daqgroup-database, но устанавливается вручную (т.е. не устанавливается автоматически).
   Для других СУБД также достаточно найти и установить драйверы ODBC или провайдеры, чтобы сделать их доступными для работы с DbApi.
   
   Есть также работающий пример, наглядно показывающий использование функций DbApi.
   
   
4. В функции ParamStr добавлен параметр OleDbProviderNames со списком имен установленных провайдеров OLEDB/ADO.
   Использование - ParamStr('OleDbProviderNames').
   
   
5. В функции ParamStr добавлена группа параметров идентификации процесса:

               ParamStr('MainInstance')        - идентификатор экземпляра приложения
               ParamStr('MainThreadId')        - идентификатор главного потока программы
               ParamStr('CurrentThreadId')     - идентификатор текущего потока программы
               ParamStr('CurrentProcessId')    - идентификатор текущего процесса - PID
               ParamStr('ApplicationHandle')   - идентификатор окна приложения (скрытого)
               ParamStr('MainFormHandle')      - инентификатор окна главной формы приложения
              

   Эти идентификаторы могут пригодиться для самых разных целей, в основном для организации связей с другими программами.
   
   
6. Добавлена команда Главной Консоли @list OleDbProviderNames для просмотра установленных провайдеров ADO. Полезный инструмент для разработчиков.
   
   
7. В функции ParamStr добавлен параметр OdbcDriverNames со списком имен установленных драйверов ODBC.
   Использование - ParamStr('OdbcDriverNames').
   
   
8. Добавлена команда Главной Консоли @list OdbcDriverNames для просмотра установленных драйверов ODBC. Полезный инструмент для разработчиков.
   
   
9. Небольшие изменения в классе TPolling (добавлена инициализация/завершение COM). Это понадобилось для корректной работы библиотеки DbApi в многопоточном режиме.
   
   
10. Небольшие изменения в обработчике исключений и в реестре объектов (модуль _alloc.pas). Для прикладных программистов это неважно, но для средств диагностики пакета - полезно.
    
    
11. Заведен библиотечный модуль DbLibrary. Он (по замыслу) содержит функции, расширяющие возможности DbApi. Пока там немного функций, но они будут добавляться по мере накопления опыта работы с БД.
    
    
12. В конфигурации DEMO_TESTBENCH добавлены тесты (@Test 12, @Test 13) для проверки и иллюстрации работы библиотеки DbApi. Тест 12 считывает данные из демонстрационного файла СУБД Firebird (c:\Crw32exe\Demo\DEMO_DATA\employee.fdb). Тест 13 считывает данные из демонстрационного файла СУБД SQlite (c:\Crw32exe\Demo\DEMO_DATA\toc.db). Считывание производится с помощью связки провайдера MSDASQL и драйверов ODBC. Провайдер MSDASQL - встроенный в дистрибутив Windows и не требует установки. Драйверы ODBC устанавливаются по умолчанию при инсталляции пакета database. Поэтому все должно работать без специальных настроек.
    
    
13. Несколько слов о реализации DbApi. В силу особенностей технологии COM, объекты DbApi "привязаны" к одному потоку. Это создает определенные проблемы, т.к. в текущей реализации пакета старт/стоп программ DaqPascal (когда RunCount равен 1/INF) происходит в основном потоке, а не в потоке опроса программы. По этой причине (пока) не получится создавать постоянные соединения (db_connection), вызывая их инициализацию/завершение в процедурах InitApplication/FreeApplication. То есть пока надо ориентироваться на синхронное соединение-чтение-закрытие, когда запрос, получение ответа и освобождение объекта соединения делается в одном вызове процедуры опроса. Это, безусловно, не соответствует основному приципу пакета (асинхронный режим как основной режим работы), но эта проблема будет решаться и со временем это ограничение, вероятно, отпадет.
    
    
14. Несколько слов о применении СУБД.
    
    
    • SQLite пригодна для хранения локальных настроек и параметров прикладных программ. Для хранения данных её вряд ли стоит применять - данные будут недоступны по сети, т.к. эта СУБД в принципе локальная. Эта СУБД устанавливается по умолчанию при инсталляции пакета database, так что должна быть доступна всегда (при условии, что IT не будут чинить препятствий с установкой драйверов).
      
      
    • Firebird пригодна для хранения не только настроек, но и измеряемых данных. При этом данные будут доступны по сети, т.к. эта СУБД клиент/серверная. Эта СУБД у нас уже устанавливается по умолчанию при инсталляции пакета database, она компактная и удобная в настройке, так что будем считать её основным вариантом на будущее. В будущем планируется сделать сервер сохранения данных по типу &DatSrv, чтобы данные записывались в файлы формата этой СУБД (можно вместе с DAT-файлами).
      
      
    • Другие СУБД в принципе могут быть подключены через провайдеры OLEDB/ADO или драйверы ODBC через встроенный провайдер MSDASQL. В частности, свободно доступны ODBC драйверы для MySQL и PosgreSQL. Эти СУБД могут использоваться для связи с другими системами (например, Tango). При необходимости эти драйверы будут включены в дистрибутив.
    
    
    
15. В первом приближении вопрос поддержки СУБД решен. Требуется массированное тестирование. Добровольцы, шаг вперед!

MousePos
case
SmiProxy
@view logo
Logos
ShowLogoDelay
DEMO_SCE\SCE_BACC_BSTR

1. Главными достижениями данного выпуска являются: обновление библиотек SMI; утилита MousePos для отображения координат мыши; исправление оператора case; добавление команды @view logo; добавление параметра ShowLogoDelay; демо конфигурация DEMO_SCE\SCE_BACC_BSTR для иллюстрации Конечных Автоматов.

2. В этом выпуске обновлены библиотеки SMI; добавлена утилита MousePos; исправлен оператор case в компиляторе DaqPascal; сделаны средства борьбы с мельканием окон при старте; продолжена работа по Конечным Автоматам.

3. В меню Инструменты добавлена утилита MousePos. Эта утилита отображает в окошке кооринаты мыши, а также размеры "выделения" (после щелчка левой кнопкой мыши). Способ выделения (просто щелчек или с удержанием левой кнопки мыши) меняется двойным щелчком над окном MousePos.
   
   Назначение утилиты MousePos - облегчение работы, связанной с разметкой и размещением графических элементов на экране. Например, при создании мнемосхем или при конфигурировании размещения окон через @windraw.

4. Исправлен недочет в реализации оператора case, который заключался в генерации ошибки времени исполнения, если ни одна из альтернатив case не подходит с проверяемым значением. Это делало оператор case неудобным и небезопасным для программирования. Теперь оператор case продолжает выполнение со следующего за ним оператора, если альтернативы выбора не найдены.
   
   То есть теперь оператор case можно использовать безопасно, он больше не вызывает ошибок исполнения.
   
   При использовании оператора case надо иметь в виду, что он (пока еще?) не поддерживает диапазоны (типа 1..4 - их можно заменять перечислением 1,2,3,4), а также не поддерживает альтернативу else (иногда её можно заменить предварительной инициализацией результата). Кроме того, оператор case выполняется путем линейного поиска значений в таблице альтернатив в порядке их определения в коде - до первого найденного значения. Поэтому (с точки зрения производительности) при большом (более 10) числе альтернатив рекомендуется ставить наиболее частые (типичные) альтернативы первыми - это несколько увеличит скорость работы оператора case.
   
   Кроме исправления недочета было увеличено максимальное число допустимых альтератив (с 30 до 256).

5. В конфигурации DEMO_TESTBENCH добавлен тест (@Test 11) для проверки и иллюстрации работы оператора case.

6. В Главной Консоли добавлена команда @view logo для отображения "заставки", которая скрывает все дочерние окна внутри главного окна:

              @view logo show "Подождите секунду..."            - Показываем обычную заставку с надписью
              @view logo show -daq "Подождите секунду..."       - или показываем заставку для DAQ-системы
              @view logo show -bmp Resource\Bitmap\daq_system_logo.bmp "Подождите минутку..."  - или заставку с данной BMP
              ...                                               - Делаем что-то с окнами
              @view logo hide                                   - Убираем заставку
              

   Заставка призвана убрать мелькание окон при загрузке DAQ конфигурации. Команды отображения/отмены заставки можно применять, например, в скриптах [&Cron.StartupScript] для более приятной загрузки.
   
   В силу особенностей работы цикла опроса (Главная Консоль начинает опрашивается после обработки очереди событий Windows), для корректной работы заставки команду @view logo надо "встраивать" в задания Cron следующим образом. Обычно в системе есть главная мнемосхема (например DEMO.MAIN.CTRL), для которой создается Cron-задание *.HOME ("расставить окна по домам", в данном случае - задание DEMO.MAIN.CTRL.HOME). В этом задании с помощью @windraw ...|Fast|Eval=@system @view log show ... задается команда заставки, которая выполняется в очереди обработки сообщений Windows. В конце Cron-здания заставка убирается командой @eval @system @async @silent @view logo hide

   [&CronSrv.StartupScript]
   ...
   @cron.tab DEMO.MAIN.CTRL.HOME 0 0 0
   @cron.job DEMO.MAIN.CTRL.HOME @WinDraw DEMO.MAIN.CTRL|Fast|Eval=@system @view logo show -daq "Подождите секунду..."
   @cron.job DEMO.MAIN.CTRL.HOME ...
   @cron.job DEMO.MAIN.CTRL.HOME ... здесь расположены обычные команды рисования ...
   @cron.job DEMO.MAIN.CTRL.HOME ...
   @cron.job DEMO.MAIN.CTRL.HOME @async @async @async @async @async @eval @system @async @silent @view logo hide
              

   При использовании такой конструкции при каждом исполнении команды HOME будет показана заставка, которая скроет за собой мелькание при прорисовке большого числа окон. По завершении рисования заставка убирается. Работа заставки теперь также иллюстрируется на примерах DEMO_DOZA, DEMO_UNIHEATER, в которые добавлен соответствующий код, см. файл doza_main_init.cfg или файл duh_main_init.cfg.

7. Для устранения мелькания окон при загрузке и старте DAQ-системы в секции [DAQ] добавлен параметр ShowLogoDelay, который задает время (в секундах) на отображение заставки с сообщением о старте DAQ-системы. По умолчанию это ноль (т.е. заставка убирается сразу после старта системы). Заставка закрывает собой экран, чтобы сделать невидимым раздражающее мелькание окон в первые секунды после старта DAQ-системы. Отмена заставки происходит либо по истечении заданного времени, либо командой @view logo hide в Главной Консоли, которую можно послать, например, из стартового сценария &CronSrv.StartupScript. Для этого можно поместить в конце сценария команду

              [&CronSrv.StartupScript]
              ...
              @async @async @async @async @async @eval @system @async @silent @view logo hide
              []
              

   Многократный вызов @async используется для помещения команды в конец очереди команд, когда все предыдущие прорисовки уже завершены.

8. В стандартную конфигурцию ~~\Resource\DaqSite\Default\CronSrv.cfg добавлен файл ~~\Resource\DaqSite\Default\HideLogo.cfg который задает параметр [DAQ] ShowLogoDelay = 60 для отображения заставки при запуске DAQ-системы, а также отменяет заставку в конце запуска DAQ-системы.
   
   Это значит, что при использовании стандартной конфигурации ~~\Resource\DaqSite\Default\CronSrv.cfg можно не заботиться об отображении и отмене заставки, чтобы скрыть мелькание окон при загрузке и старте системы. Если длительности заставки по умолчанию (60 сек) не хватает, её можно (пере)определить в основном конфигурационном файле DAQ-системы, где надо просто указать, например, [DAQ] ShowLogoDelay = 90 для того, чтобы убрать мелькание окон при загрузке.
   
   Таким образом, при использовании стандартной конфигурации ~~\Resource\DaqSite\Default\CronSrv.cfg (которая уже давно входит практически во все прикладные системы) автоматически должно исчезнуть мелькание окон при загрузке и старте системы. Для устранения мелькания окон при выполнении команды HOME надо модифицировать задание Cron как было описано выше.

9. Обновлен модуль SmiProxy и его документация. Добавлены полезные функции (например, smi_proxy_state, smi_move_to).

10. В сборку шрифтов (install-daqgroup-fonts.exe) добавлены корпоративные шрифты:
    • от Paratype - шрифты Golos Text, Golos UI, PT Root UI;
    • от СберБанка - шрифты Sb Sans Text, Sb Sans Display, Sb Sans Interface;
    • от РЖД - шрифты RussianRail G Pro, FSRAILWAY;
    • от РосБанка - шрифт Rosbank SansTT;
    • от Тинькофф - шрифт Tinkoff Sans;
    • от РосАтома - шрифт Rosatom.
    Эти шрифты входят в рекомендуемый и документально закрепленный фирменный стиль соответствующих корпораций. Их можно применять для оформления программных интерфейсов или документов в стиле интересующей корпорации. Напоминаем, что для пакета CRW-DAQ основным рекомендованным шрифтом является PT Mono, а дополнительными - PT Sans и PT Sans Narrow.

11. Заведена папка Resource\Logos для хранения логотипов некоторых корпораций (Росатом, Роскосмос и других).

12. Создана первая версия ДЕМО системы управления на базе Конечных Автоматов DEMO_SCE. Пока там незавершенная (частично работающая) версия вакуумной системы бустера SCE_BACC_BSTR. Это модельная система, т.е. (абстрактная) симуляция некоторой гипотетической вакуумной системы, для иллюстрации управления с помощью Конечных Автоматов. Модельная система нужна для отладки библиотек, демонстрации работы Конечных Автоматов, а также в качестве прототипа для создания будущих систем управления такого вида. Этот пример будет дорабатываться в следующих версиях пакета. Пока это "затравка" на будущее.

13. Просьба к разработчикам: использовать в новых системах (и заменить в действующих) ссылки на стандартные серверы в каталоге ~~\Resource\DaqSite\Default\, т.е. например:

               ConfigFile = ~~\Resource\DaqSite\Default\CronSrv.cfg         - Предпочтительная ссылка
               ConfigFile = ~~\Resource\DaqSite\Default\SpeakSrv.cfg        - Предпочтительная ссылка
               ConfigFile = ~~\Resource\DaqSite\CronServer\CronSrv.cfg      - Устаревшая ссылка (надо заменять)
               ConfigFile = ~~\Resource\DaqSite\SpeakServer\SpeakSrv.cfg    - Устаревшая ссылка (надо заменять)
               

    Ссылка на Default конфигурации серверов позволит безболезненно менять свойства "по умолчанию" для стандартных серверов, не затрагивая их основную конфигурацию (а лишь включая дополнительные файлы). Так, например, в сервере &CronSrv в конфигурацию по умолчанию добавлена стартовая команда отображения заставки при старте и отмены заставки после старта, при этом основная конфигурация сервера не изменилась.
    
    Такая замена произведена в ряде DEMO конфигураций основного пакета (runtime).

14. Устранен внутренний (довольно безобидный) баг, связанный с дисбалансом LockDraw/UnlockDraw.

15. Обновлена утилита SmiGenGui - добавлен отдельный фонт (PT Sans Narrow, 8pt) для имени домена, т.к. домен может иметь довольно длинное имя.

DaqPasEditor.cmd
htonl
htohl
htons
ntohs

1. Главными достижениями данного выпуска являются: обновление библиотек SMI; добавление группы функций htonl; добавление кнопки компиляции и вызова внешнего редактора программ DaqPascal в DAQ системе; утилита DaqPasEditor.cmd для вызова внешнего редактора программ DaqPascal; список функций во встроенном редакторе программ DaqPascal.

2. В этом выпуске обновлены библиотеки SMI; добавлена группа функций htonl; добавлены функции компиляции и внешнего редактирования программ DaqPascal.

3. В ходе работ по конечным автоматам обновлены библиотеки SMI для прокси серверов. Добавлены функции (например, smi_test_state), устранены мелкие ошибки.

4. В диалоге свойств программ DaqPascal добавлена кнопка компиляции. Она будет полезна, например, для перезапуска программных устройств. Либо для перекомпиляции при редактировании внешним редактором.

5. В диалоге свойств программ DaqPascal добавлена кнопка вызова внешнего редактора. Это команда (для Главной Консоли), которая определена в параметре Crw32.ini [DaqSys] OpenDaqPascalEditor, которая вызывает командный файл DaqPasEditor.cmd, которому передается (в аргументах) имя редактируемого файла и имя устройства. Командный файл вызывает внешний редактор (например, notepad++) для редактирования указанного файла. Обратите внимание - одновременно открывать внешний и внутренний редактор не рекомендуется во избежание конфликтов.

6. Добавлена группа функций htonl(hl), ntohl(nl), htons(hs), ntohs(ns) для подготовки данных при организации приемо-передачи в сети. Эти функции переставляют порядок байтов в числах, чтобы обеспечить верную передачу потоковых данных независимо от архитектуры процессоров. В сети TCP/IP принят сетевой (net) порядок передачи чисел "от старшего значащего байта к младшему" независимо от архитектуры приемо-передатчика. На конкретном компьютере машинное (host) представление чисел может отличаться от сетевого. Например, в архитектуре x86 порядок хранения чисел "от младшего байта к старшему". Поэтому для передачи в сетевой поток числа надо приводить к сетевому представлению вызовом htonl, а при приеме - приводить к машинному представлению вызовом ntohl. Эти функции помогут правильно организовывать протоколы связи для обмена данными при использовании каналов (pipe) и рекомендуются для использования при разработке драйверов устройств.

7. В конфигурации DEMO_TESTBENCH добавлен тест (@Test 10) для проверки и иллюстрации работы функций htonl и ntohl. По измерениям на типичном CPU:i7-4700MQ-2.4GHz время вызова функций htonl составляет порядка 24 ns (т.е. 32 ns в цикле при 8 ns на пустой цикл). Высокая скорость работы (по сравнению с перестановкой байтов "вручную") делает функции htonl наиболее предпочтительными для использования в сетевых программах, реализующих протоколы связи.

8. В вычислитель выражений (eval, калькулятор, главная консоль) также добавлена группа функций htonl, ntohl, htons, ntohs. Пригодится.

9. В редакторе кода программ DaqPascal добавлена кнопка f(). Эта команда открывает (справа) панель Функции со списком процедур и функций, который позволяет быстро перемещаться по тексту программы по именам объявленных процедур и функций. Это особенно полезно для больших программ с длинным текстом программного кода (например, драйверов). Навигация по списку функций позволит значительно ускорить поиск нужного фрагмента кода и тем самым повысить производительность труда прикладных программистов.
   
   Регулярное выражение для поиска задается в параметре Crw32.ini [DaqSys] DaqPascalPatternFx, по умолчанию это шаблон:
   /^\s*(procedure|function)\s+([_a-zA-Z][_a-zA-Z0-9]*)/img.
   
   Список функций обновляется при 1) нажатии кнопки f() и 2) при сохранении изменений (т.е. при сбросе флага Modified).
   Во время редактирования текста список функций не меняется, пока текст не будет сохранен.

_WINE.PAS
_VBOX.PAS
detectwine()
detectvbox()

1. Главными достижениями данного выпуска являются: модули _WINE, _VBOX; программа detectwine.exe; функции detectwine(), detectvbox().

2. В этом выпуске добавлены утилиты для обнаружения виртуальных сред (WINE, VirtualBox).

3. Добавлены модули для обнаружения виртуальных сред исполнения: _WINE.PAS - для среды WINE, _VBOX.PAS - для среды VirtualBox.
   Введение модулей связано с возрастающим значением виртуальных сред исполнения.

4. В Главной Консоли введены функции:

              detectwine()                  - обнаружение WINE
              detectvbox()                  - обнаружение VirtualBox Guest Additions
              

   Эти функции возвращают положительное значение (номер версии) или 0 (если среда не обнаружена).

5. Также в Главной Консоли введены переменные, инициализируемые при старте (Crw32.ini [StartupScript]):

              winedetected                  - обнаружение WINE
              vboxdetected                  - обнаружение VirtualBox Guest Additions
              
              Эти переменные позволяют делать вызов из DaqPascal:
              
              eval('@system winedetected')  - обнаружение WINE
              eval('@system vboxdetected')  - обнаружение VirtualBox Guest Additions
              

6. Для обнаружения WINE и VirtualBox сделаны также утилиты командной строки:

              unix detectwine               - обнаружение WINE
              unix detectvbox               - обнаружение VirtualBox Guest Additions
              

   Эти утилиты сделаны для применения в командных файлах.

7. Средства обнаружения WINE и VirtualBox позволяяют определить факт их наличия. Основной пакет успешно запускается и работает в этих средах, однако для полной адаптации к ним еще предстоит выполнить большую работу (если возникнет необходимость), т.к. многие вспомогательные средства там не работают или работают некорректно (в первую очередь это касается командных файлов и утилит). Средства обнаружения помогут скорректировать эти вспомогательные средства.

8. Скорректированы правила проверки имен lex_FsmName, lex_SmiName в полном соответствии с библиотекой SMI - для обеспечения полной совместимости. До этого там работало несколько другое правило (были разрешены дополнительные символы, которые недопустимы в SMI).

9. Оптимизирована служба "антизомби" (модули dpAntiZombie.pas и dpCrwDaqSys.pas в библиотеке DieselPascal). Эта служба автоматически завершает работу программы DieselPascal, если родительский процесс завершился (чтобы не оставались висящие "зомби"-процессы, которые не могут корректно работать без родительского процесса). Раньше проверка работы родительского процесса шла путем чтения списка процессов, что относительно трудоемко. Теперь проверка работы родительского процесса идет путем проверки статуса процесса, что гораздо быстрее. Это снижает загрузку системы при большом числе работающих утилит DieselPascal.

DaqCrcMove.LM9
Crw32.Utils.LM9
test.sml
test_bug.sml
DEMO_DG645
Mermaid

DimSite_Root
SmiSite_Root
crw-daq-finder
smi_kill
smi_control

1. Главными достижениями данного выпуска являются: переменные DimSite_Root, SmiSite_Root; редактор блок-схем и диаграмм Mermaid; программа smi_kill и утилита smi_control; утилита DaqCrcMove.LM9; обновление консольных утилит Crw32.Utils.lm9.

2. В этом выпуске добавлены/обновлены утилиты для прикладных разработчиков, а также продлолжена разработка/отладка библиотек для Конечных Автоматов SMI++, и сопутствующих им утилит.

3. Добавлена утилита DaqCrcMove.LM9 для вызова утилиты сдвига (выбранных) сенсоров мнемосхем. Эта утилита может облегчить редактирование мнемосхем, состоящих из подсистем, когда возникает необходимость сдвинуть группу сенсоров (относящихся к одной из подсистем) на заданную пользователем величину (пикселей). Фактически это означает изменение параметра Pos = ... на соответствующую величину. Утилита ориентирована на обработку (сдвиг) выбранных сенсоров из заданного файла CRC. Предполагается, что мнемосхемы разных подсистем описываются в отдельных CRC файлах, чтобы облегчить их редактирование и поддержку.

4. В консольные утилиты Crw32.Utils.LM9 на закладке DAQ добавлена кнопка DaqCrcMove для вызова утилиты сдвига сенсоров мнемосхем.

5. Продолжена разработка/отладка библиотек Конечных Автоматов.

6. Для тестирования и иллюстрации работы Конечных Автоматов создано 2 тестовых файла: test.sml, test_bug.sml.
   Оба файла содержат абстрактный (не имеющий ассоциированных прокси-объектов) автомат FSM, включающий: управление условным экспериментом RUN (с типом RUN_TYPE, сборщиком событий EVT_BUILDER, журналом LOGGER) и автопилот AUTO_PILOT для организации цикла экспериментов. Эти тестовые файлы можно компилировать, запускать и наблюдать (мониторировать) в автономном режиме с помощью утилиты SmiGenGui, например для изучения работы Конечных Автоматов.
   
   Пример test.sml содержит пример с программным таймером (на языке SML), который (при включении автопилота) перезапускает RUN каждые 10 секунд.
   
   Пример test_bug.sml содержит пример с логической ошибкой, которая (при включении автопилота) приводит к "зацикливанию" и подвисанию машины состояний. Этот пример добавлен для иллюстрации проблем, к которым может привести неверное построение кода Конечного Автомата (на языке SML).
   
   Утилита SmiGenGui содержит в себе необходимый минимум для цикла разработки Конечных Автоматов на языке SML. А тесты позволяяют "поиграть" с Конечными Автоматами на готовых примерах.

7. Добавлена ДЕМО конфигурация DEMO_DG645 с драйвером генератора задержек DG645. Обновление предоставил А.Жирунов.

8. В инструментарий DaqConstructor добавлен редактор Mermaid.
   Редактор Mermaid (русалка ) служит для создания блок-схем и диаграмм состояний из простого текстового описания. Этот инструмент будет полезен для изображения Конечных Автоматов (машин состояний, FSM) в удобном для восприятия графическом виде.
   Исходным кодом служит простое текстовое описание блок-схемы, например, код State1-->State2 описывает прямоугольники [State1], [State2], изображающие состояния, со стрелкой между ними. На основе этого описания Mermaid генерирует графическое изображение в виде блок-схемы.
   В первой версии Mermaid присутствует базовый функционал, который со временем будет расширяться и дополняться по мере возможностей. Обновление предоставил А.Жирунов с мелкими правками А.Курякина.
   
   Редактор Mermaid следует рассматривать как часть инструментария и библиотек для построения систем управления на приципе Конечных Автоматов. Системы управления на базе Конечных Автоматов предполагают диалог между программистами (реализующими автомат) и методистами (физиками, проектирующими и использующими автомат). Графические диаграммы и блок-схемы, которые позволяет рисовать редактор Mermaid, облегчают диалог между специалистами разного рода.

9. В стартовый сценарий Crw32.ini [StartupScript] введены переменные окружения DimSite_Root, SmiSite_Root. Они указывают на местоположение каталогов DimSite, SmiSite, для библиотек DIM, SMI. Это сделано для поддержки (дочерних) утилит и командных сценариев, использующих технологии DIM, SMI.

10. В сборку UnixUtils добавлена команда crw-daq-finder для поиска установок пакета CRW-DAQ.
    Ищет в реестре информацию об установвленных экземплярах CRW-DAQ и выдает список каталогов установки.
    Например:

                [C:\]# unix crw-daq-finder
                C:\Crw32exe
                d:\Crw32exe
                e:\Crw32exe
               

    Утилита полезна как для разработчиков (при работе в командной сроке), так и для командных сценариев, если требуется узнать места установки пакета CRW-DAQ. Утилита распознает только установленные (стандартным инсталлятором) копии пакета, которые регистрируются в системном реетре. Она не ищет копии пакета, которые просто распакованы (скопированы) из архива.

11. В сборку SMI++ добавлена программа smi_kill.exe для корректного завершения работы доменов SMI. Эта программа входит в состав исходных кодов SMI, но по умолчанию не компилировалась. Теперь в дистрибутив будет входить (кроме исходного кода) и откомпилированный бинарный файл.
    Например:

                в сеансе CMD:
                set DIM_DNS_NODE=localhost           предварительно надо задать DIM DNS
                smi_kill DEMO                        завершение работы SMI домена DEMO
               

    Команда smi_kill завершает процесс Конечного Автомата smiSM.exe, который обслуживает указанный при вызове домен SMI (в данном примере это DEMO), при этом переменная окружения DIM_DNS_NODE должна быть (заранее) задана.

12. В сборку UnixUtils добавлена команда smi_control для работы с технологией SMI.
    По замыслу - это объединенная (комплексная) утилита, которая позволяет: получать список работающих доменов с заданным DNS; компилировать (транслировать) SML файл в объектный SOBJ файл; запускать откомпилированный объектный файл домена с помощью менеджера Конечных Автоматов smiSM.exe; завершать работу заданного домена SMI, и выполнить другие команды для работы с технологией SMI. Таким образом, утилита объединяет в один мощный инструмент множество разрозненно существующих программ, входящих в библиотеку SMI, что облегчает их использование.
    Например:

     -- получить список доменов SMI, работающих с данным DNS
     unix smi_control -list -dns localhost
     
     -- компилировать SML файл
     unix smi_control --verb --compile c:\Crw32exe\Demo\DEMO_SMITEST\Config\test.sml
     
     -- компилировать SML файл и запустить домен TEST
     unix smi_control -compile -run -dns localhost -dom TEST -cd %Temp% c:\Crw32exe\Demo\DEMO_SMITEST\Config\test.sml
     unix smi_control -compile -run -dns localhost -dom TEST -cd c:\Crw32exe\Demo\DEMO_SMITEST\Config -sml test.sml
     
     -- выполнить команду dnsRunning (проверка работы DNS)
     unix smi_control --dns localhost --exe dnsRunning.exe
     
     -- завершить работу домена TEST с заданным DNS
     unix smi_control --kill --dns localhost --dom TEST
     
     -- узнать версию
     unix smi_control --version
     
     -- получить справку
     unix smi_control --help
               

    Утилита полезна как для разработчиков (при работе в командной сроке), так и для командных сценариев, если требуется компилировать, запускать, останавливать и проверять работу Конечных Автоматов SMI.

UniHeater
DEMO_UNIHEATER
DimTree
upcase
locase
DEMO_TESTBENCH

1. Главными достижениями данного выпуска являются: функции upcase, locase; обновленная версия DimTree; обновленная версия UniHeater и DEMO_UNIHEATER.

2. В этом выпуске доработан UniHeater, а также продлолжена разработка библиотек для Конечных Автоматов SMI++, и сопутствующих им утилит.

3. Обновлена версия UniHeater.
   
   В новой версии сделана возможность подтверждения (confirm) операций.
   В теге CONF_i содержатся биты:
   Бит 0 - подтверждение включения нагревателя.
   Бит 1 - подтверждение выключения нагревателя.
   Бит 2 - подтверждение чтения/записи параметров из INI файла.
   Если соответствующий бит присутствует, перед выполнением операции будет выдан диалог запроса для подтверждения её выполнения.
   
   Также обновлена документация UniHeater.
   Кроме того, файлы автоматически генерируемых изображений (barbmp) перенесены в системную папку, чтобы не "замусоривать" каталог прикладной системы.

4. Обновлена версия DimTree.
   В новой версии добавлены:
   Кнопки + (pаскрыть всё) и - (cвернуть всё).
   Кнопка Find (диалог поиск/закладки - Find/Bookmark DIM Services).
   Функции поиска и быстрого перемещения по списку найденных DIM сервисов.
   Функции закладок для быстрого перемещения по списку закладок DIM сервисов.
   
   Новые функции поиска/закладок нужны для облегчения и ускорения диагностики и отладки распределенных систем на базе технологии DIM.

5. Добавлены функции преобраазования регистров (отдельных) символов upcase, locase.
   Данные функции давно надо было сделать, они полезны при символьном анализе строк. Эти функции затрагивают только символы a-zA-Z, т.е. символы ASCII. Остальные символы передаются "как есть". Данные функции быстрые, т.е. они работают намного быстрее, чем регистровое преобразование строки из одного символа через вызов Up/LoCaseStr.

6. В конфигурации DEMO_TESTBENCH добавлен тест 9 (@Test 9) для проверки и иллюстрации работы функций upcase и locase.

7. Продолжена разработка библиотек Конечных Автоматов. Коррекции вносились в модули SmiProxy (незначительные), SmiuiSrv (добавлены 2 функции и 1 команда), FsmManager (внутрениие изменения).

IsLexeme
lex_FsmName
lex_SmiName
lex_DimName
FSM API
fsm_name_rule
DEMO_SMITEST

1. Главными достижениями данного выпуска являются: обновление функций синтаксического анализа IsLexeme; обновление библиотеки FSM API; обновление демо DEMO_SMITEST.

2. В этом выпуске продлолжена разработка библиотек для Конечных Автоматов SMI++, и сопутствующих им утилит.

3. В ходе разработки библиотек SMI++ выяснилось, что имена объектов/состояний/действий в SMI могут содержать не только буквы/цифры, но и символы [&:-.]. Поэтому потребовалось изменить синтаксический анализ SMI/FSM.

4. В функции IsLexeme добавлены константы lex_FsmName lex_SmiName, lex_DimName, для проверки имен FSM, SMI, DIM.
   
   Кроме того, в качестве типа проверяемой лексемы (typ) теперь также можно использовать ссылку на регулярное выражение regexp_init(..). В этом случае для проверки используется regexp_test(..), например:

              rex:=regexp_init(0,'/^[_a-zA-Z]+[_a-zA-Z0-9]*$/i');    // Создать объект - регулярное выражение
              if IsLexeme(s,rex) then ...                            // Проверка выражения s
              if regexp_test(rex,s) then ...                         // Проверка выражения s (эквивалент) 
              bNul(regexp_free(rex));                                // Не забываем освободить регулярное выражение
              

   Это расширение IsLexeme(..) позволяет использовать регулярные выражения единообразным способом вместе с предопределенными константами, делая эту функцию универсальным инструментом синтаксического анализа теста.

5. Добавлена функция FSM API fsm_name_rule(typ). Она возвращает правило имен функции IsLexeme для заданного типа (typ). Необходимость этой функции связана с тем, что разные компоненты имен FSM теперь имеют разные правила. Например, допускается имя состояния &Busy, но домена с таким именем быть не должно. Поэтому правило имен определяется по типу элемента.

6. Библиотеки функций FSM API, FsmManager модифицированы так, чтобы их можно было использовать для многодоменных систем, т.е. систем, в которых есть несколько взаимодействующих в сети доменов SMI. В таких системах, в частности, допускаются имена вида DOMAIN::OBJECT для ссылок на объекты другого домена. В предыдущей версии действовало правило имен IsLexeme(name,lex_Name), в котором символ [:] не допускался. Теперь в именах действует правило fsm_name_rule(typ), которое для объектов, состояний и действий допускает использование имен с символами [&:.-].

7. Обновлены серверные программы SmiProxy.exe, SmiuiSrv.exe в связи с обновлением библиотек FSM API.

8. В конфигурации DEMO_TESTBENCH модифицирован тест 4 и 8 (@Test 4, @Test 8) для проверки и иллюстрации работы функций islexeme и FSM API.

9. Обновлена демо конфигурация DEMO_SMITEST. Приведена в соответствие с библиотеками.
   
   В новой версии демо-конфигурация сделана с двумя доменами (DEMO и AUTO), для иллюстрации взаимодействия доменов. Соответсвенно есть два SML файла в каталоге Config: run_con_demo.sml и run_con_auto.sml. Домены запускаются с помощью сервера &SmiSrv:

       [ConfigFileList] ; General Purpose Servers              ; включить стандартную
       ConfigFile = ~~\Resource\DaqSite\Default\SmiSrv.cfg     ; конфигурацию &SmiSrv
       []
       ...
       [&SmiSrv.StartupScript]                                 ; В начале работы &SmiSrv:
       @dimdnslaunch                                           ; запустить локальный DIM DNS
       @dim_dns_node localhost                                 ; задать DIM_DNS_NODE
       @smitranslate run_con_demo.sml                          ; компилировать run_con_demo.sml
       @smismstart DEMO run_con_demo.sobj -dns localhost       ; и запустить с ним домен DEMO
       @smitranslate run_con_auto.sml                          ; компилировать run_con_auto.sml
       @smismstart AUTO run_con_auto.sobj -dns localhost       ; и запустить с ним домен AUTO
       @smismguard 60000                                       ; сторожевой таймер перезапуска
       []
       [&SmiSrv.FinallyScript]                                 ; В конце работы &SmiSrv:
       @smismstop *                                            ; завершить серверы SMI
       []
              

   Домен AUTO содержит объекты { PILOT, DEMO::RUN }.
   При этом объект AUTO::DEMO::RUN а домене AUTO объявлен как /ASSOCIATED, т.к. он является прокси объектом, который представляет логический объект DEMO::RUN из домена DEMO. Прокси-объект AUTO::DEMO::RUN имеет тот же набор состояний (state) и действий (action), но не имеет кода реализации, т.к. его реализует логический объект DEMO::RUN из домена DEMO. Кроме того, в прокси-объекте дополнительно присутствует состояние DEAD /dead_state на случай потери связи.
   Объект AUTO::DEMO::RUN а домене AUTO используется в коде логического объекта PILOT для реализации "АВТОПИЛОТА", т.е. внешнего управления объектом DEMO::RUN. С точки зрения "АВТОПИЛОТА", весь домен DEMO представляется одним логическим объектом DEMO::RUN, представленным своим "аватаром" AUTO::DEMO::RUN, т.е. замещающим прокси-объектом, описывающим его состояния. Вся сложность реализации объектов домена DEMO скрыта за этим прокси-объектом.
   
   Домен DEMO содержит объекты { AUTO::PILOT, RUN, RUN_TYPE, LOGGER, EVT_BUILDER }.
   При этом объект DEMO::AUTO::PILOT а домене DEMO объявлен как /ASSOCIATED, т.к. он является прокси объектом, который представляет логический объект AUTO::PILOT из домена AUTO. Прокси-объект DEMO::AUTO::PILOT имеет тот же набор состояний (state) и действий (action), но не имеет кода реализации, т.к. его реализует логический объект AUTO::PILOT из домена AUTO. Кроме того, в прокси-объекте дополнительно присутствует состояние DEAD /dead_state на случай потери связи.
   Замещающий объект DEMO::AUTO::PILOT в домене DEMO используется для создания графического интерфейса, т.е. отображения состояний и обработки действий объекта AUTO::PILOT из домена AUTO. Это позволяет делать графические интерфейсы единообразно, по принципу "одно окно - один домен - один SML файл", но при этом использовать любые нужные в работе объекты SMI из любых доменов.
   
   Таким образом, в данном примере два домена активно взаимодействуют друг с другом через прокси-объекты. Именно таким образом можно строить многоуровневые иерархические системы управления, в которых различные уровни управления взаимодействуют друг с другом через механизмы SMI.

10. Разработка библиотек для Конечных Автоматов SMI++ приближается к завершению, хотя есть еще нерешенные вопросы (например, с сохранением/передачей/редактированием параметров объектов, а также с наборами объектов - как их использовать в GUI). Однако уже сейчас можно пробовать создавать прикладные системы на базе Конечных Автоматов SMI. Демо конфигурация DEMO_SMITEST может служить примером и прототипом для создания таких систем.

FsmManager
SmiProxy
SmiuiSrv
SmiGenGUI.LM9
DEMO_SMITEST

1. Главными достижениями данного выпуска являются: обновление модуля FsmManager; обновление модуля SmiProxy; обновление модуля SmiuiSrv; обновление утилиты SmiGenGUI.LM9; обновление DEMO_SMITEST.

2. В этом выпуске продлолжена разработка библиотек для Конечных Автоматов SMI++, и сопутствующих им утилит.

3. Обновлен модуль FsmManager и его документация.

4. Обновлен модуль SmiProxy и его документация. Изменено (упрощено) конфигурирование модуля. Функции модуля синхронизованы с версией FsmManager.

5. Обновлен модуль SmiuiSrv и его документация. Функции модуля синхронизованы с версией FsmManager.

6. В первом приближении библиотеки работают. Их еще придется неоднократно дорабатывать, однако уже можно пробовать использовать для прикладных систем.

7. Программы SmiProxyLogger, SmiProxyEvtBuilder добавлены в шаблоны редактора в разделе Daq-Pas-Program.
   Это шаблоны для создания прокси - программ для Конечных Автоматов.

8. Обновлена утилита SmiGenGUI.LM9, изменена геометрия кнопок, добавлены шрифты.

9. Обновлена демо конфигурация DEMO_SMITEST. Приведена в соответствие с библиотеками.

SmiuiSrv
SmiGenGUI.LM9
DEMO_SMITEST

1. Главными достижениями данного выпуска являются: обновление модуля SmiuiSrv; обновление утилиты SmiGenGUI.LM9; обновление DEMO_SMITEST.

2. В этом выпуске продлолжена разработка библиотеки SmiuiSrv, которая реализует клиента Конечных Автоматов SMI++, и сопутствующих ей утилит.

3. Обновлен библиотечный модуль SmiuiSrv, добавлена обработка параметров логических объектов. Модуль пока считается экспериментальным ("в разработке"), но он уже функционирует и постепенно приближается к окончательной рабочей версии. Требуется доработка и тестирование, но как-то пользоваться уже можно.

4. Обновлена библиотека модулей DieselPascal\External, в которую добавлено несколько полезных функций общего назначения (WordIndex и другие). Также добавлен модуль dpCrcUtils для облегчения генерации CRC-файлов. Этот модуль разработан для использования в утилите SmiGenGUI.LM9, но может применяться и для других утилит, связанных с генерацией CRC-файлов.

5. Обновлена утилита SmiGenGUI.LM9, в которой добавлена страница (закладка) DAQ для генерации файлов конфигурации CFG и мнемосхем CRC. Сначала (на странице SML) задается имя SML-файла с кодом Конечного Автомата. Затем (на странице DAQ) выполняется разбор файла (Parse SML). При этом заполняются списки обнаруженных обьектов (objects), параметров (parameters) и наборов объектов (objectsets). Надо выбрать (select) те из них, которые войдут в конфигурацию. При этом также можно указать главный (main) и ведущий (lead) объект. После этого на закладке параметров (parameters) нужно задать параметры генератора - префикс тегов, имя устройства - обработчика GUI, имя окна, параметры шрифтов, геометрические параметры кнопок и полей. После этого можно выполнить генерцию конфиграции (Make CFG) и мнемосхем (Make CRC). Сгенерированный текст можно наблюдать в окне, копировать в буфер обмена или сохранить в файл.

6. Обновлена ДЕМО конфигурация DEMO_SMITEST для иллюстрации новых функций библиотеки SmiuiSrv.

7. Удален библиотечный модуль SmiuiRtl, который теперь заменен модулем SmiuiSrv. Это была неудачная попытка реализации библиотеки для SMI GUI, которая была заменена на более эффективную реализацию.

SmiuiSrv
Crw32.Utils.LM9
SmiGenGUI.LM9
DEMO_SMITEST
Origami
Painter(v)
GuiLib
DEMO_PAINT_GOSTLIB
DEMO_PAINT_GUILIB
DEMO_IMG400

1. Главными достижениями данного выпуска являются: обновление Origami; обновление Painter(v) и GuiLib; обновление модуля SmiuiSrv; обновление DEMO_SMITEST.

2. Этот выпуск посвящен в основном продлолжению разработки библиотеки SmiuiSrv, которая реализует клиента Конечных Автоматов SMI++.

3. Небольшие изменения в библиотеке FSM API: свойство fsm_ctrl(ref,'color') сделано доступным для всех контейнерных элементов (ранее было только для состояний).

4. Небольшие изменения в интерфейсе основного пакета: в меню Link\DAQ System добавлено 5 ссылок на утилиты, добавленные в нескольких прошлых релизах: DimMonitor.LM9, Dim_benchmark.LM9, DimStatGui.LM9, SmiGenGui.LM9, Com0com.LM9. Цель состоит в том, чтобы сделать инструментарий разработчиков быстро доступным.

5. Обновлена стандартная библиотека, где после введения процедур MessageBoxDialogEx, EditMessageBoxDialogExDefaultHandler проведена оптимизация по размеру кода (устранен дублирующийся код).

6. Обновлена библиотека SmiuiSrv, в которой сделано много изменений - реализация меню действий, цвета элементов FSM и т.д. Библиотека постепенно приближается к окончательной рабочей версии.

7. В консольные утилиты Crw32.Utils.LM9 на закладке DAQ добавлена кнопка SmiGenGUI . Это вызов утилиты SmiGenGUI.LM9 для наблюдения и отладки Конечных Автоматов.

8. В утилитe SmiGenGUI.LM9 добавлена закладка SML, в которой есть средства для наблюдения и отладки Конечных Автоматов, компиляции SML файлов транслятором smiTrans.exe, запуска и остановки сервера Конечных Автоматов smiSM.exe. Есть также инструмент для создания и наблюдения журнальных Log-файлов, полезных в процессе создания, отладки и поддержки Конечных Автоматов. Также добавлена закладка Help, чтобы справочный материал по SMI был "под рукой". Вместе с ранее созданными средствами мониторинга утилита SmiGenGUI.LM9 становится одним из основных средств разработки, отладки и поддержки Конечных Автоматов SMI.

9. Обновлена ДЕМО конфигурация DEMO_SMITEST для иллюстрации новых функций библиотеки SmiuiSrv.
   Это первая версия практически полностью функционального демонстрационного Конечного Автомата.

10. Обновлен редактор мнемосхем Origami. Обновление содержит исправления ошибок и доработки интерфейса (по просьбам пользователей). Обновление предоставил А.Жирунов.

11. Добавлена ДЕМО конфигурация DEMO_IMG400 для иллюстрации драйвера контроллера вакуумных датчиков фирмы Pheiffer Vacuum IMG400. Код предоставили М.Ефремов и Н.Гурин.

12. Обновлены библиотеки и документация графической системы Painter. Обновилась библиотека: GuiLib, в которые добавлены новые графические элементы (в основном кнопки для ToolBar - [Painter(v).GuiLib.Cmd.xxx]). Обновление подготовил Н.Гурин.

13. Обновлены ДЕМО конфигурации DEMO_PAINT_GUILIB, DEMO_PAINT_GOSTLIB, использующие графические элементы Painter. В DEMO_PAINT_GUILIB входит папка GUILIB_TEST_SCALE, в которой проверяется масштабирование графических элементов. Обновление подготовил Н.Гурин.

SmiuiSrv
SmiuiSrv.exe
MessageBoxDialogEx
EditMessageBoxDialogExDefaultHandler
WarningEx
InfoBoxEx
DEMO_SMITEST

1. Главными достижениями данного выпуска являются: обновление программы SmiuiSrv.exe и модуля SmiuiSrv; обновление DEMO_SMITEST.

2. Этот выпуск посвящен в основном продлолжению разработки программы SmiuiSrv.exe и библиотеки SmiuiSrv, которая реализует клиента Конечных Автоматов SMI++.

3. Обновлена программа SMIUISRV.EXE - добавлено чтение версии и других параметров DIM DNS.

4. Обновлена библиотека SmiuiSrv, в которой сделано много изменений - связка с тегами, контроль наличия связи и т.д.

5. В стандартную библиотеку добавлены процедуры MessageBoxDialogEx, EditMessageBoxDialogExDefaultHandler, WarningEx, InfoBoxEx, которые значительно расширяют возможности стандартного диалога MessageBox, позволяя привязывать положение диалога к нажатому сенсору, а также задавать команду, выполняемую при нажатии кнопки OK или Yes.

6. Обновлена демо конфигурация DEMO_SMITEST для иллюстрации новых функций библиотеки SmiuiSrv.

С Днем Космонавтики!

SmiuiSrv
SmiuiSrv.exe
fsm_link
fsm_modified
PfeifferProxy
DEMO_LAKESHORE
DEMO_SMITEST

1. Главными достижениями данного выпуска являются: программа SmiuiSrv.exe и модуль SmiuiSrv; добавление функций fsm_link, fsm_modified; обновление DEMO_LAKESHORE; обновление движка DieselPascal; обновление сборки DIM.

2. Этот выпуск посвящен в основном программе SmiuiSrv.exe, которая реализует клиента Конечных Автоматов SMI++, а также обновлениям некоторых компонентов.

3. Добавлена программа SMIUISRV.EXE (SMI User Interface Server). Эта программа может подключаться к серверу SMI++ (домену Конечных Автоматов) и отслеживать его состояние, а также посылать ему команды. Эта программа нужна для реализации клиента GUI для Конечных Автоматов.
   Вызов программы выглядит примерно так:

       SMIUISRV -verb -auto -dns localhost -dom DEMO -sleep 1000
       
       где
           -verb           подробный режим отображения (verbose)
           -auto           автоматическое подключение всех объектов домена при запуске
           -dns localhost  задает имя сервера имен DIM_DNS_NODE
                           в данном случае задает его равным localhost
           -dom DEMO       задает имя SMI домена, к  которому надо подключиться
                           в данном случае это домен DEMO
           -sleep 1000     делает паузу на 1000 мс после подключения к домену
                           пауза используется для более надежного подключения
              

   Программа SMIUISRV.EXE будет работать в составе модуля SmuUiSrv на языке DaqPascal, который находится на этапе разработки и будет отвечать за создание GUI для Конечных Автоматов. Добавление программы SMIUISRV.EXE - важный шаг в реализации Конечных Автоматов.

4. Обнаружена и исправлена небольшая ошибка в модуле _FSM.PAS. Она была связана с неверным результатом fsm_path(ref) для элементов типа fsm_type_objectset.

5. Добавлена функция fsm_link. Эта функция позволяет "привязать" к элементу FSM целочисленную ссылку (link) с именем. Например, это может быть тег, кривая, номер входа-выхода и т.д. Например:

     Привязка:    
       tag:=findtag('COUNTER');                    // Поиск тега COUNTER
       iNul(fsm_link(fsm,'tagCounter='+Str(tag))); // Запись (привязка) тега COUNTER под именем 'tagCounter'
     Использование:    
       tag:=fsm_link(fsm,'tagCounter');            // Чтение тега по имени 'tagCounter'
       bNul(iSetTag(tag,123));                     // Использование тега
              

6. Добавлена функция fsm_modified. Эта функция позволяет "маркировать" элементы FSM как "модифицированные", т.е. измененные. Это удобно для организации обработки событий, когда изменение состояний происходит в одном месте (например, в процедуре чтения сообщений из сети), а обработка - в другом месте (например, в общем цикле опроса). Маркировка элементов как "модифицированных" позволяет помечать изменившиеся элементы для последующей обработки.

7. В конфигурации DEMO_TESTBENCH модифицирован тест (Test8) для проверки и иллюстрации работы функций fsm_link, fsm_modified.

8. Обновлен движок DieselPascal от версии 2.0.17 до версии 2.0.21. Добавлена поддержка в Runtime некоторых свойств (например Anchor), а в дизайнере в Свойства Проекта добавлены "Аргументы командной строки", что удобно для отладки (можно передавать опции запуска при отладке).

9. Обновлена сборка DIM с версии 20.32 до актуальной версии 20.33. Обновления коснулись в основном DimBridge, где ускорен процесс запуска и изменен его порядок (команды запускаются первыми, информационные сервисы - потом).

10. Обновлена ДЕМО конфигурация DEMO_LAKESHORE. Обновление предоставил А.Жирунов.

11. Обновлен прокси драйвер PfeifferProxy. Обновление предоставил А.Жирунов.

12. Добавлен библиотечный модуль SmiuiSrv, обслуживающий программу сервера SMIUISRV.EXE (SMI User Interface Server). Эта библиотека будет использоваться для создания прикладных программ (GUI), основанных на Конечных Автоматах (SMI). Поскольку библиотека довольно большая и используется не всегда, то она не включается в StdLibrary автоматически (неявно), а должна включаться включаться явно, как описано в документации. Библиотека пока в стадии разработки, но уже частично функционирует. Она обеспечивает запуск/завершение/перезапуск процесса SMIUISRV.EXE, прием и передачу данных и команд от SMI к FSM. Остается реализовать привязку FSM к GUI.

13. Обновлена демо конфигурация DEMO_SMITEST для иллюстрации работы библиотеки SmiuiSrv.

Origami
DEMO_LAKESHORE
DimMonitor.lm9
Crw32.Utils.LM9
DIM

1. Главными достижениями данного выпуска являются: добавлена утилита DimMonitor.lm9; обновление DEMO_LAKESHORE; обновление Origami; обновление DIM.

2. Этот выпуск посвящен в основном утилите DimMonitor, а также обновлениям некоторых компонентов.
3. Добавлена утилита DimMonitor.lm9. Утилита DimMonitor.lm9 является графической "надстройкой" над консольными утилитами DimStat и DimSrv. Она служит для наблюдения (в виде таблицы) конкретных (заранее выбранных) DIM сервисов. Вызов делается примерно так:

       @run DimMonitor                                        просто запуск (первый экземпляр)
       @run /sw7 dim monitor                                  просто запуск (другой способ)
       @run DimMonitor --number 2                             запуск второго экземпляра
       @run DimMonitor --number 3 --ini DimMonitor_3.ini      запуск 3-го экземпляра с загрузкой INI файла
              

   Как следует из примеров, можно запускать несколько экземпляров монитора и загружать набор сервисов, заранее созданный в программе и сохраненный в INI файле. Созданная утилита является первой версией, которая (вероятно) еще будет дорабатываться.

4. В консольные утилиты Crw32.Utils.LM9 на закладке DAQ добавлена кнопка DIM Monitor GUI.

5. В штатные утилиты (как в консольную, так и в графическую версию "Инструменты/Панель управления DIM") добавлен вызов DimMonitor.lm9 (до трех экземпляров).

6. Обновлена сборка DIM с версии 20.30 до актуальной версии 20.32.

7. Обновлен редактор мнемосхем Origami. Обновление содержит добавление новых графических элементов и мелкие доработки интерфейса. Обновление предоставил А.Жирунов.

8. Обновлена ДЕМО конфигурация DEMO_LAKESHORE для иллюстрации работы драйвера криогенного контроллера. Обновление предоставил А.Жирунов.

9. Добавлен прокси драйвер для сериализации устройств с протоколом Pfeiffer PfeifferProxy и библиотеки для него. Драйвер предоставил А.Жирунов.

10. Добавлена ДЕМО конфигурация DEMO_EDUTC110 для иллюстрации работы с протоколом Pfeiffer. ДЕМО предоставил А.Жирунов.

origami
smi_man_ru.pdf
fsm_brief_ru.pdf
text_indexof
text_remove
SmiProxy
DEMO_SMITEST
Painter(v)
GuiLib
GostLib

1. Главными достижениями данного выпуска являются: добавлены функции работы с текстами text_indexof, text_remove; обновление Painter(v), GostLib и GuiLib; обновление Origami.

2. Этот выпуск сделан в продолжение работ по Конечным Автоматам. А также обновлению отдельных компонентов.

3. Добавлена документация по Конечным Автоматам.
   smi_man_ru.pdf - перевод документации SMI, с некоторыми добавлениями.
   fsm_brief_ru.pdf - краткий обзор SMI, пока не законченный.

4. Обновлен редактор мнемосхем Origami. Обновление посвящено добавлению функциональных цветовых констант. Обновление предоставил А.Жирунов.

5. Добавлены библиотечные функции для работы с тестами: Text_IndexOf, Text_Remove. Функции нужны для реализации библиотек Конечных Автоматов, которые интенсивно работают с текстами.

6. Обновлен библиотечный модуль SmiProxy для создания прокси-серверов SMI на языке DaqPascal. Теперь эта библиотека (автоматически) включает в себя модуль FsmManager. Использование FsmManager позволило унифицировать и упростить чтение SML файлов (теперь для этого используется процедура из модуля FsmManager). Теперь также не надо заботиться об обновлении цвета тега состояния, он обновляется автоматически. Это значит, что прикладной код прокси программ будет еще компактнее и проще.

7. Обновлена демо конфигурация DEMO_SMITEST для иллюстрации работы библиотеки SmiProxy с учетом сделанных в библиотеке изменений.

8. Обновлены библиотеки и документация графической системы Painter. Обновились библиотеки: GuiLib, GostLib, в которые добавлены новые графические элементы: [Painter(v).GuiLib.ListButton.Arrow], [Painter(v).GuiLib.ListButton.Triangle], [Painter(v).GostLib.Pump.Sublimation.xxx], [Painter(v).GostLib.Vacuometer.Penning.xxx]. Обновление подготовил Н.Гурин.

9. Обновлена тестовая конфигурация DEMO_PAINT_GUILIB для иллюстрации работы новых графических элементов.

fsm_new
fsm_free
fsm_ref
fsm_root
fsm_type
fsm_parent
fsm_name
fsm_path
fsm_ctrl
fsm_count
fsm_items
fsm_get_iparam
fsm_set_iparam
fsm_get_fparam
fsm_set_iparam
fsm_get_sparam
fsm_set_sparam
fsm_add
fsm_find
fsm_get_state
fsm_set_state
FsmManager

1. Главными достижениями данного выпуска являются: добавление 21 функции для поддержки Конечных Автоматов (FSM): fsm_new, fsm_free, fsm_ref, fsm_root, fsm_type, fsm_parent, fsm_name, fsm_path, fsm_ctrl, fsm_count, fsm_items, fsm_get_iparam, fsm_set_iparam, fsm_get_fparam, fsm_set_iparam, fsm_get_sparam, fsm_set_sparam, fsm_add, fsm_find, fsm_get_state, fsm_set_state; первая версия модуля FsmManager.

2. Поздравляю всех с праздником Защитника Отечества - 23 февраля.

3. Этот выпуск сделан в продолжение работ по Конечным Автоматам. В основном он посвящен новым функциям для работы с FSM. Это очень важный шаг для решения задачи создания средств поддержки Конечных Автоматов.

4. Добавлены встроенные функции FSM API для поддержки Конечных Автоматов (FSM): fsm_new, fsm_free, fsm_ref, fsm_root, fsm_type, fsm_parent, fsm_name, fsm_path, fsm_ctrl, fsm_count, fsm_items, fsm_get_iparam, fsm_set_iparam, fsm_get_fparam, fsm_set_iparam, fsm_get_sparam, fsm_set_sparam, fsm_add, fsm_find, fsm_get_state, fsm_set_state. Эти функции в совокупности реализуют быструю (высокоэффективную) поддержку сложной древовидной иерархической динамической структуры данных для Конечных Автоматов FSM (Менеджер\Домен\Объект\Состояние\Действие), см. описание функций. Функции создавались с расчетом на (будущую) поддержку технологии SMI++, однако могут эффективно применяться независимо от нее для решения повседневных задач.
   
   Одно из достоинств FSM состоит в том, что она хорошо приспособлена для решения задач управления и алгоритмов, работающих в режиме опроса (polling), который характерен для задач управления вообще и пакета CRW-DAQ в частности. При работе в режиме опроса возникает проблема сохранения переменных состояния для обработки в следующем цикле опроса, так как обработка данных выполняется не в однократно вызываемой процедуре, а в ряде последовательных периодических вызовов программы управления. Для этого, конечно, есть переменные, теги, кривые, записи и хеш-списки, но это разрозненные, слабо структурированные данные. FSM API предоставляет возможность создавать четко структурированные объекты, в которых можно хранить данные, необходимые для работы FSM.
   
   Предполагается, что встроенные функции FSM API образуют минимальный базис поддержки FSM, обеспечивающий быстрые динамические структуры данных, который будет дополнен сервисными библиотеками на языке DaqPascal, которые потребуются для практического применения FSM. Например, это чтение и сохранение SML файлов с описанием прикладных FSM, построение динамических интерфейсов (мнемосхемы, меню и т.д.).

5. В конфигурацию DEMO_TESTBENCH добавлен тест (Test8) для проверки и иллюстрации работы функций FSM API.

6. Функции FSM API дополняются библиотечным модулем FsmManager со средствами прикладной разработки (чтение и разбор SML файлов и прочее). Сейчас этот модуль находится в разработке, но основной функционал уже работает. В процессе разработки и отладки модуля FsmManager функции FSM API работали стабильно, ошибок пока не было найдено. Разработка модуля будет продолжена.

7. Добавлены примеры sml_samples файлов на языке SML с установок CERN.

8. Обновлена конфигурация DEMO_SMITEST. Добавлена команда тесстирования модуля FsmManager - чтение SML файла и вывод содержимого FsmManager в консоль и файл ..\Temp\*.lst.

crw-daq-colors.htm
@list colors
colortostring
stringtocolor
stringtocolordef
clnone
clblack
clmaroon
clgreen
clolive
clnavy
clpurple
clteal
clgray
clsilver
clred
cllime
clyellow
clblue
clfuchsia
claqua
clwhite

1. Главными достижениями данного выпуска являются: добавление поддержки большого числа именованных цветов; актуальная таблица цветов crw-daq-colors.htm; команда @list colors; функции и константы для работы с именованными цветами.

2. Этот выпуск сделан в продолжение работ по Конечным Автоматам. В основном он посвящен функциям для работы с именованными цветами. Эти функции оказались нужны для реализации библиотеки Конечных Автоматов.

3. Добавлена команда @view showfront ... для рисования окна и его активизации (BringToFront). Например:

              @view showfront FormCrw32             активизирует главное окно CRW-DAQ
              @view showfront FormConsoleWindow     активизирует окно Главной Консоли
              @view showfront FormDaqControlDialog  активизирует панель управления DAQ
              

4. В панели управления DAQ-система добавлена функция вывода краткой статистики по текущей DAQ конфигурации. При нажатии на строку статуса (StatusBar) выводится что-то вроде:

   2022.02.14-13:21:19 => DAQ работает.
   Файл C:\Crw32exe\Demo\DEMO_TESTBENCH\Config\!DEMO_TESTBENCH.CFG
   Найдено тегов:0, кривых:0, устройств:3, графиков:0, мнемосхем:0, сенсоров:0.
   Найдено ошибок работы DAQ: 0, проблем конфигурации: 0.
   Время от загрузки DAQ: 0-00:00:08.312  (8.312 sec)
   Время работы DAQ: 0-00:00:03.687  (3.687 sec)
              

   Это удобный способ быстро определить, какая конфигурация сейчас работает и каков её текущий статус.

5. В примерах реализации Конечных Автоматов, взятых в CERN, есть много ссылок на цвета состояний (каждое состояние Автомата имеет свой цвет). Было скачано и проанализировано большое число файлов, взятых из различных работающих в CERN систем, на основании этого построена суммарная таблица цветов. Оказалось, что в Конечных Автоматах в CERN используются в основном не физические цвета (типа Red, Green, Blue), а функциональные цвета (_3DFace, FwForeground), описывающие функцию (назначение) цвета. В таблице функциональных цветов часть цветов оказалось общесистемной (типа _3DFace), а часть специфической для Конечных Автоматов (типа FwForeground).

6. В обширном наборе цветовых констант, которые поддерживал пакет, тем не менее не хватало функциональных цветов, т.е. цветов, которые связаны не с именами физических цветов, а с именами графических элементов или функций. Например, цвет фона и текста кнопки, окна или заголовка окна являются функциональными и могут зависеть от текущих настроек системы.

7. В пакет добавлена поддержка около 30 системных функциональных цветов, т.е. цветов, связанных с определенными типами графических элементов или определенными функциями ОС. Особенность этих цветов в том, что они не являются строгими константами, а определяются текущими настройками Windows, т.е определяются в сеансе работы. Например, цвет _BtnFace - цвет фона стандартной кнопки. Системные функциональные цвета начинаются со знака подчеркивания, чтобы подчеркнуть их особую роль. Однако для удобства определены также простые константы без знака подчеркивания. Например _BtnFace, BtnFace, clBtnFace и cl_BtnFace будут синонимами при вызове ParamStr('ColorCode _BtnFace'). В файлах CRC синонимами будут _BtnFace и BtnFace. В сценариях Painter синонимами будут cl_BtnFace и clBtnFace. Список системных функциональных цветов есть, например, в файле ColFun.crc.

8. Также в пакет добавлена поддержка около 50 системных функциональных цветов JCOP, т.е. цветов, взятых с большого числа установок, работающих в CERN. Все эти цвета начинаются с префикса Fw (от Framework), т.к. установки используют общие библиотеки JCOP Framework. Список функциональных цветов JCOP есть, например, в файле ColJFw.crc

9. Добавлена команда @list colors:

               @list colors          - вывод имен цветов в Главную Консоль
               @list colors pas      - вывод таблицы цветов в формате Pascal
               @list colors crc      - вывод таблицы цветов в формате CRC (Painter)
               @list colors htm      - просмотр таблицы цветов в формате HTML
              

   Эта команда позволяет посмотреть актуальную (в данном сеансе) таблицу именованных цветов. Особенно удобно смотреть в формате HTML.

10. Команда @list colors htm обновляет файл crw-daq-colors.htm с актуальной с таблицей цветов, доступных в пакете CRW-DAQ, и затем открывает его в окне Web обозревателя. При указании имени файла в конце команды файл записывается молча (окно браузера не открывается).

11. Вызов команды @list colors htm Resource\Manual\crw-daq-colors.htm прописан в стартовом сценарии пакета, так что файл crw-daq-colors.htm содержит актуальную (в данной сессии работы) таблицу цветов. Для удобства кроме указанных в таблице имен цветов (типа Blue) в пакете определены также имена с префиксом cl (типа clBlue), используемые в сценариях Painter. А для функциональных цветов (типа _BtnFace) доступны простые названия без знака подчеркивания (типа BtnFace).

12. Ссылка на актуальную (в данной сессии работы) таблицу цветов crw-daq-colors.htm помещена в топ-лист на главную страницу справки, чтобы облегчить поиск. Предполагается, что таблица цветов будет использоваться при разработке интерфейсов пользователя, в том числе с использованием Конечных Автоматов.

13. Добавлены функции преобразования цветов: ColorToString, StringToColor, StringToColorDef, а также цветовые константы для основных, наиболее часто используемых цветов: clNone, clBlack, clMaroon, clGreen, clOlive, clNavy, clPurple, clTeal, clGray, clSilver, clRed, clLime, clYellow, clBlue, clFuchsia, clAqua, clWhite. Остальные цвета извлекаются по имени вызовом StringToColor.
    Теперь именованные цвета (необходимые при реализации Конечных Автоматов) будет значительно легче использовать.

14. В демонстрационных конфигурациях (DEMO_SMITEST, DEMO_UNIHEATER) вызовы ParamStr('ColorCode ...') заменены на новые функции преобразования цветов, это получается короче и удобнее.

15. В конфигурацию DEMO_TESTBENCH добавлен тест (Test7) для проверки и иллюстрации работы функций StringToColor.

16. В соответствии с обновленным набором цветов обновлены утилиты barbmp, ledbmp, и соответственно обновлена ссборка UnixUtils. Теперь в скриптах, использующих эти утилиты, тоже можно использовать функциональные цвета (типа BtnFace или Tooltip).

17. С этими добавлениями тема именованных цветов, надеюсь, закрыта. Таблица цветов (физических и функциональных) будет использоваться для реализации интерфейса Конечных Автоматов.

backslash_encode
backslash_decode
backslash_encoder_ctrl

1. Главными достижениями данного выпуска являются: добавление функций кодирования backslash_encode, backslash_decode, backslash_encoder_ctrl.

2. Этот выпуск сделан в продолжение работ по Конечным Автоматам. В основном он посвящен функциям кодирования с обратным слешем (\). Эти функции оказались нужны для реализации библиотеки Конечных Автоматов.

3. Добавлены функции backslash_encode, backslash_decode, backslash_encoder_ctrl. Эти функции служат для кодирования текста или двоичных данных с помощью экранирования обратным слешем (\). Такой метод кодирования используется, например, в языках C/C++ для задания строк в тексте программ.
   
   Этот кодировщик удобен для кодирования данных, содержащих в основном текст, т.к. после кодирования текст сохраняет читабельность. Но при этом он становится пригодным для передачи по каналам связи, т.к. управляющие символы заменяются на печатные символы. С помощью backslash_encoder_ctrl можно управлять набором символов, которые будут экранироваться или передаваться HEX-кодом, что позволяет кодировать текст при наличии дополнительных ограничений. Например, экранирование пробелов позволяет хранить или передавать любой текст в виде одной неразрывной строки. Новый кодировщик будет удобен для отладочного вывода или реализации разных протоколов связи.
   
   Мотивацией создания функций послужило то, что этот метод кодирования используется в Конечных Автоматах (SMI). Значит, в DaqPascal он тоже будет нужен.

4. В конфигурацию DEMO_TESTBENCH добавлен тест (Test6) для проверки и иллюстрации работы функций backslash_encode/decode.

RegExp
RegExp Calculator
RegExp Builder
PCRE
TPerRegEx

1. Главными достижениями данного выпуска являются: доработка библиотеки регулярных выражений (RegExp), доработка RegExp Калькулятора.

2. Этот выпуск сделан в продолжение работ по Конечным Автоматам. В основном он посвящен доработке библиотеки RegExp. Регулярные выражения (RegExp) нужны для реализации библиотеки Конечных Автоматов.

3. Доработан и почищен (от лишних ссылок и счетчиков) калькулятор Регулярных Выражений RegExp Builder.

4. Добавлена функция regexp_escape(arg). Она экранирует специальные символы RegExp, делая строку (arg) пригодной для шаблона RegExp. Рекомендуется использовать эту функцию для конструирования шаблонов Регулярных Выражений.

5. Устранена некорректность в реализации regexp_replace. Некорректность была в том, что она выполняла замену всех соответствий, даже при выключении флага Global. Теперь при отключении глобального поиска замена выполняется один раз, как и положено.

6. В библиотеку Регулярных Выражений добавлен движок regexp_pcrelib с именем TPerlRegEx на основе библиотеки PCRE 7.9 (Perl Compatible Reg Exp). Этот движок использует загружаемую библиотеку pcrelib.dll (отсюда и название). Он может служить в качестве дополнительного и в каком-то смысле эталонного, т.к. достаточно давно используется в качестве основного в языке Perl. На нем можно проверять работу сложных Регулярных Выражений.

7. Если не возникнет новых проблем, работы по введению регулярных выражений RegExp пока завершены.

RegExp
RegExp Calculator
RegExp Builder
DEMO_LAKESHORE

1. Главными достижениями данного выпуска являются: коррекция библиотеки регулярных выражений (RegExp), доработка RegExp Калькулятора.

2. Этот выпуск сделан в продолжение работ по Конечным Автоматам. В основном он посвящен доработке RegExp Калькулятора и исправлению найденных недоработок реализации RegExp. Регулярные выражения (RegExp) потребовались для реализации библиотеки Конечных Автоматов.

3. Существенно доработаны функции RegExp. В целом устранена путаница, возникшая с модификаторами RegExp. По умолчанию (для совместимости с другими движками) все модификаторы отключены. Их можно включить вызовом regexp_ctrl(rex,'Modifiers=im') или задать в выражении (?im). Последняя конструкция не рекомендуется, т.к. модификатор g имеет неоднозначное значение в разных движках (global или greedy). Лучше использовать выражение /Pattern/igm, описанное ниже, где все модификаторы предсказуемы (g=global).
   
   Теперь допускается шаблон примерно того же вида как в JavaScript, что-то типа /Шаблон/модификаторы, например /Шаблон/igm. В программе это выглядит так:

              rex:=regexp_init(regexp_def,'/Text-to-find/igm');
              

   Это работает следующим образом. Если строка шаблона начинается с слеша /, заканчивается слешем /m с допустимыми модификаторами (m) из списка (igmrsx) в конце, то слешы отбрасывается из шаблона, а модификаторы (после сброса всех модификаторов в ноль) устанавляваются в соответсвии с заданными значениями. Это поведение можно выключить флагом regexp_ctrl(rex,'UseSlash=0'), который по умолчанию включен. Если требуется использовать шаблон, начинающийся с слеша, его можно заэкранировать как \/ или [/].

4. Справка по RegExp существенно дополнена, добавлен полезный калькулятор RegExp Builder. В нем можно конструировать и вычислять регулярные выражения на JavaScript. Это полезный инстумент в дополнение к RegExp Калькулятору.

5. Существенно переработан RegExp Калькулятор. В него добавлен Benchmark - режим измерения производительности, который может вычислять время выполнения операций (путем зацикливания и измерения времени цикла). Сделано много мелких доработок для повышения удобства и функциональности.

6. С помощью измерения производительности RegExp был существенно оптимизирован (особенно вызов Exec).

7. Добавлена переменная Crw32.ini [System] regexp_default_options = .... Эта переменная задает опции (параметры) по умолчанию для RegExp. Переменная имеет вид:

    regexp_default_options = Engine=1,Modifiers=-igmrsx,ExecMax=0,UseSubst=1,UseSlash=1,Greedy=1,SavePar=0
              

   То есть параметры теперь задаются одним списком. Другие переменные (regexp_default_xxx) были удалены. Значение параметров см. regexp_init.

8. Добавлена демо конфигурация DEMO_LAKESHORE с драйвером криогенного контроллера LakeShore. Разработка от А.Жирунова.

9. Если не возникнет новых проблем, работы по введению регулярных выражений RegExp пока завершены.

RegExp
regexp_def
regexp_pas
regexp_vbs
regexp_init
regexp_free
regexp_ref
regexp_ctrl
regexp_test
regexp_exec
regexp_replace
regexp_matchnum
regexp_matchpos
regexp_matchlen
regexp_matchstr
regexp_default_engine

1. Главными достижениями данного выпуска являются: добавление функций regexp_xxxx и связанных с ними констант, реализация библиотеки регулярных выражений (RegExp), создание RegExp Калькулятора.

2. Этот выпуск сделан в продолжение работ по Конечным Автоматам.

3. Добавлена группа функций для обработки регулярных выражений (RegExp - Regular Expression): regexp_init, regexp_free, regexp_ref, regexp_ctrl, regexp_test, regexp_exec, regexp_replace, regexp_matchnum, regexp_matchpos, regexp_matchlen, regexp_matchstr, а также связанных с ними констант regexp_def, regexp_pas, regexp_vbs.
   Реализация RegExp основана на "движках" (engine), т.е. библиотеках, реализующих регулярные выражения, с общим программным интерфейсом API. В настоящее время в сборку входит два движка - один встроенный, написанный на Object Pascal, а другой - внешний, от VBScript.RegExp. Движки имеют свои особености и возможности, разную скорость и полноту соответствия стандартам. В любом случае иметь выбор лучше, чем не иметь его. В будущем возможно добавление и других движков (но с тем же API).
   
   Необходимость библиотеки регулярных выражений стала очевидна в ходе работ по Конечным Автоматам. Регулярные выражения нужны, например, для облегчения разбора файлов SML с описанием Конечных Автоматов.

4. В конфигурацию DEMO_TESTBENCH добавлен тест (Test5) для проверки и иллюстрации работы библиотеки RegExp.

5. Добавлена переменная Crw32.ini [System] regexp_default_engine = 1. Эта переменная задает движок по умолчанию для RegExp. При вызове regexp_init(0,pattern) вместо 0 будет подставлено это значение. Это позволяет менять движок по умолчанию без изменения прикладных программ.

6. Добавлена переменная Crw32.ini [System] regexp_default_modifiers = rsg-imx. Эта переменная задает модификаторы по умолчанию для RegExp. При вызове regexp_init модификаторам будет присвоено это значение по умолчанию. Это позволяет менять значение модификаторов по умолчанию без изменения прикладных программ. Модификаторы влияют на работу алгоритмов поиска и замены RegExp. Например, модификатор i включает регистро-независимый режим.

7. Добавлена переменная Crw32.ini [System] regexp_default_execmax = 0. Эта переменная задает начальное значение предела (максимального числа) итераций при поиске соответствий RegExp.Exec, так что значение Exec будет ограничено этим пределом. Значение 0 снимает ограничение числа итераций при поиске.

8. Добавлена переменная Crw32.ini [System] regexp_default_saveopt = 0. Эта переменная задает начальный режим для RegExp.SaveOpt, см. справку.

9. Добавлена переменная Crw32.ini [System] regexp_default_usesubst = 1. Эта переменная задает начальный режим для RegExp.UseSubst, который влияет на работу RegExp.Replace, см. справку.

10. Добавлены переменные
    Crw32.ini [System] ApplicationHintPause = 500,
    Crw32.ini [System] ApplicationHintHidePause = 5000
    Эти переменные влияют на всплывающие подсказки, задавая длительность ожидания перед показом справки и длительность её работы. Длинные подсказки могут исчезать раньше, чем их успеют прочесть. Теперь это регулируется через файл инициализации.

11. В меню Инструменты добавлен RegExp Калькулятор. Он реализован на том же API, который используется в DaqPascal и служит для облегчения создания и использования регулярных выражений в прикладных программах. При использовании RegExp важна возможность проверить их работу на тех или иных тестах в калькуляторе, чтобы потом было меньше ошибок в прикладных программах.
    
    На этом можно предварительно считать работу по введению регулярных выражений RegExp в пакет выполненной. Со временем возможно развитие этой темы (например, добавление новых движков), но пока и этого достаточно.

IsLexeme
lex_Ansi
lex_Utf8
lex_Name
lex_Word
lex_Blank
lex_Space
lex_Cntrl
lex_Alpha
lex_Lower
lex_Upper
lex_Digit
lex_Alnum
lex_xDigit
lex_Print
lex_Graph
lex_Ascii
lex_iParam
lex_fParam
lex_sParam
lex_Base64
comopen
isoption

1. Главными достижениями данного выпуска являются: устранение мелких ошибок, добавление функции IsLexeme и связанных с ней констант, увеличение допустимой длины строк текста программы до 241.

2. Этот выпуск сделан в продолжение работ по Конечным Автоматам.

3. Добавлена функция для облегчения (быстрого) лексического анализа IsLexeme(arg,typ), которая проверяет соответствие строки (arg) правилам построения лексемы данного типа (typ). Также определены константы типа лексем: lex_ansi, lex_utf8, lex_name, lex_word, lex_blank, lex_space, lex_cntrl, lex_alpha, lex_lower, lex_upper, lex_digit, lex_alnum, lex_xdegit, lex_print, lex_graph, lex_ascii, lex_iparam, lex_fparam, lex_sparam, lex_base64.
   Например:

             arg:='nice_name';
             if IsLexeme(arg,lex_name) then writeln('arg looks like a Name');
             arg:='bad+name!';
             if not IsLexeme(arg,lex_name) then writeln('arg is not a Name');
             

   При реализации функции упор был сделан на скорости её работы. По задумке, функция должна очень быстро проверять входную строку, чтобы можно было её быстро классифицировать и обработать в соответствии с определенным типом. По факту, на CPU:i7-4700MQ-2.4GHz вызов функции IsLexeme(s,lex_Name) занимает порядка 54+2.3*Length(s) ns. Например, для типичной длины идентификатора 20 символов это порядка 100 ns.
   Функция была разработана для применения в библиотеке Конечных Автоматов, но может использоваться и в других целях.

4. В конфигурацию DEMO_TESTBENCH добавлен тест (Test4) для проверки и иллюстрации работы IsLexeme.

5. Обновлена функция ComOpen, так что теперь в секции описания COM порта можно задавать строку параметров PipeLine = ..., в которой присутствуют переменные окружения (%variable%). Например:

             [SerialPort-COM1]
             PipeLine = tcp port 123 client %ComputerName%
             []
             

   Это дает возможность использовать переменные окружения для конфигурирования портов.

6. Обновлена команда @SysInfo, чтобы её вызов был быстрым. Это особенно важно при старте, т.е. эта команда выполняется одной из первых при запуске программы. Причиной долгого (до 5-10 секунд) исполнения команды был вызов HostName(1), который обращается к сети для получения полного сетевого имени компьютера. Теперь делается быстрый вызов HostName(0), который просто возвращает имя компьютера (без сетевого суффикса). Старое поведение доступно через @SysInfo --detail.

7. Обновлена функция isoption, так что теперь она верно распознает вызов IsOption(arg,'-') или IsOption(arg,'--').

8. В ограничениях DaqPascal изменена максимальная длина буфера входной строки с 161 до 241 символов. Использование длинных строк в текстах программ не рекомендуется, но в некоторых случаях допустимо. Рекомендуется по-прежнему ограничивать длину строк программного кода 160 символами, а строки до 240 символов использовать в исключительных случаях, если это улучшает структуру кода. Потребность в длинных строках кода возникла при разработке библиотеки для конечных автоматов.

9. Исправлена ошибка, связанная с консольным выводом в программах DaqPascal. Было обнаружено, что при выводе больших текстов (более 32Kb) этот вывод "пропадал", даже при большом значении размера FIFO программы (StdOutFifo), причем это происходило без сообщений об ошибках. Это было связано с тем, что у консольного окна тоже есть свой буфер FIFO, который имел фиксированный размер. При этом вывод программы шел нормально (FIFO хватало), но при передаче вывода от потока программы в поток графики FIFO консольного окна переполнялось. Теперь FIFO консольного окна сделано динамическим: ему позволено наращивать размер от начального (32Kb) до максимального (2*StdOutFifo). Таким образом, размер FIFO консоли сам будет "подстраиваться" под вывод. Для графического потока это вполне допустимо, т.к. он не является критическим в смысле реального времени.
   Теперь консольный вывод больших текстов в принципе должен идти нормально. При этом остаются ограничения самой консоли (в текущей реализации это не более 1024 строк истории с обрезанием длины строк в 256 символов).

ComOpen
ComClose
ComClear
ComCount
ComSpace
ComWrite
ComRead
PipeLine

1. Главными достижениями данного выпуска являются: обновление функций ComOpen, ComClose, ComClear, ComCount, ComSpace, ComWrite, ComRead; возможность перенаправлять порты ComXXX в каналы pipe_xxx.

2. Этот выпуск (первый в этом году) посвящен в основном функциям ComXXXX. Цель изменений - получить возможность перенаправлять порты ComXXX в каналы pipe_xxx (в основном для связи через TCP/IP порты).

3. Исправлена функция pipe_init, где было обнаружено неверное задание приоритета потока, обслуживающего канал.

4. Обновлены функции ComOpen, ComClose, ComCount, ComSpace, ComWrite, ComRead. Добавление касается возможности использования для приемо-передачи именованных каналов или TCP портов путем перенаправления ввода-вывода в каналы pipe_xxx.
   
   Теперь в секции описания COM порта можно задавать строку параметров PipeLine = ..., в которой задаются параметры канала связи (com port, pipe, tcp port) для функции pipe_init. Если это описание (PipeLine) присутствует, то все перечисленные выше функции ComXXX работают с каналами (pipe_xxx), а если нет - используется старое описание и старая логика работы. Например:

      if ComOpen('[SerialPort-COM1]') then writeln('Port opened.');            ; Открытие порта
      
      Конфигурация порта (в новом стиле):
      
      [SerialPort-COM1]                                                        ; Разные варианты канала связи:
      PipeLine = Com Port 1 Baudrate 9600 Parity NONE DataBits 8 StopBits 1    ; Обычный COM порт
      PipeLine = Pipe DEMO Polling 4 Priority tpHighest                        ; Именованный канал DEMO (сервер)
      PipeLine = Pipe .\DEMO Polling 4 Priority tpHighest                      ; Именованный канал DEMO (клиент)
      PipeLine = Tcp Port 1234 Server 1 Polling 4 Priority tpHighest           ; Сокет TCP:1234 (сервер)
      PipeLine = Tcp Port 1234 Client localhost Polling 4 Priority tpHighest   ; Сокет TCP:1234 (клиент)
      
      Конфигурация порта (в старом стиле, через именованный канал):
      
      [SerialPort-COM1]                                                        ; Именованный канал связи:
      PipeName    = DEMO                                                       ; Именованный канал DEMO (сервер)
      PipeName    = .\DEMO                                                     ; Именованный канал DEMO (клиент)
      PipePolling = 1, tpHighest                                               ; Период опроса и приоритет
      TimeOut     = 1000                                                       ; Время ожидания
      FifoSize    = 16                                                         ; Размер FIFO
      []
      
      Конфигурация порта (в старом стиле, через обычный COM порт):
      
      [SerialPort-COM1]                                                        ; Обычный COM порт
      Port     = COM1                                                          ; Номер порта
      BaudRate = 9600                                                          ; Скорость связи
      Parity   = NONE                                                          ; Четность
      DataBits = 8                                                             ; Число бит данных
      StopBits = 1                                                             ; Число стоповых бит
      []
             

   Новые возможности функций ComXXX позволяют (через указание PipeLine в секции описания порта) прямо (без использования com0com/com2tcp или другого внешнего драйвера виртуального порта) переадресовать драйверы, написанные для COM портов с помощью функций ComXXX, в сетевые каналы (например, TCP/IP порты). Это может использоваться в симуляторах или для "проброски" COM портов через сеть Ethernet поверх протокола TCP/IP. Также встречаются устройства, имеющие одинаковые протоколы для связи через COM порт или TCP/IP. В этом случае драйвер, написанный для COM порта, используется без изменений и для TCP/IP.

RefFind
RefInfo
WinSelectUnderClickSensor


Всех поздравляю
с наступающим
Новым Годом и Рождеством.

1. Главными достижениями данного выпуска являются: обновление функций RefFind, RefInfo, WinSelectUnderClickSensor.

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

3. Оптимизированы функции (по скорости выполнения) RefFind, RefInfo.

4. В функции RefInfo добавлены новые возможности для окон:

               win:=RefFind('Window '+WindowName);
               s:=RefInfo(win,'Bounds'); // Left Top Right Bottom
              

   Вызов RefInfo(win,'Bounds') возвращает координаты окна со ссылкой win, которую можно получить по имени (заголовку) окна вызовом win:=RefFind('Window '+WindowName). Координаты задаются относительно клиентской области, см. ParamStr('AppClientBounds').

5. Обновлена функция WinSelectUnderClickSensor(win,click,opt). Теперь она корректирует координаты вызываемого окна так, чтобы оно не выходило за границы экрана (точнее, главного окна CRW-DAQ). При реализации функции используются новые возможности RefInfo(win,'Bounds') (для чего они и были сделаны).

6. После обновления функции WinSelectUnderClickSensor обеспечена корректная работа UniHeater в случае, когда вызываемая мнемосхема (UNIHEATER.SETTINGS) выходит за границы экрана.

7. Немного поправлена мнемосхема UNIHEATER.SETTINGS.

8. В репозиторий добавлен скрипт /srv/public/mirror/addons/linux-scripts/systemd_dimdns.sh. Этот скрипт (под Linux) позволяет запускать DIM DNS как сервис (демон) systemd под именем dimdns.service:

              # подготовка DIM
              sudo mkdir -p /opt/dim                   # создаем рабочий каталог /opt/dim
              sudo cp dim/linux/* /opt/dim/            # копируем бинарники в этот каталог
              sudo chown root:root /opt/dim/*          # делаем владельцем файлов root
              sudo chmod 755 /opt/dim/*                # делаем исполняемыми файлами
              
              # инсталляция сервиса
              sudo ./systemd_dimdns.sh install         # инсталлируем сервис
              sudo ./systemd_dimdns.sh enable          # разрешаем сервис
              
              # работа с сервисом
              sudo ./systemd_dimdns.sh start           # запускаем сервис, или
              sudo systemctl start dimdns.service      # запускаем сервис DIM DNS
              sudo systemctl status dimdns.service     # проверяем статус сервиса
              sudo systemctl stop dimdns.service       # останавливаем сервис
              
              # удаление сервиса
              sudo ./systemd_dimdns.sh remove          # удаляем сервис
              

   Тем самым решается проблема центрального сервера имен DIM DNS. Его можно запускать на Linux сервере вместе с другими службами.

FindNaiByName
FindNdiByName
FindNaoByName
FindNdoByName
TStatSum2D
_typ_StdLibrary.inc
_fun_StdStatSum.inc
TStatSum2D_Reset
TStatSum2D_Init
TStatSum2D_Add
TStatSum2D_Calculate
UniHeater
DEMO_UNIHEATER

1. Главными достижениями данного выпуска являются: обновление функций FindNaiByName, FindNdiByName, FindNaoByName, FindNdoByName; добавление типа TStatSum2D и функций TStatSum2D_Reset, TStatSum2D_Init, TStatSum2D_Add, TStatSum2D_Calculate; исправленная версия UniHeater и DEMO_UNIHEATER.

2. Этот выпуск посвящен в основном улучшениям и исправлениям в системе UniHeater и попутно возникшим в процессе этой работы вопросам.

3. Оптимизированы (с помощью хеш-таблиц) функции FindNaiByName, FindNdiByName, FindNaoByName, FindNdoByName. Это резко повысило производительность этих функций и существенно уменьшило объем их кода.

4. Увеличен PreProcessorTimeOut для конфигурации DEMO_UNIHEATER, чтобы сценарий препроцессора успевал сгенерировать конфигурацию UniHeater даже на слабых машинах (и при большом числе нагревателей).

5. Исправлены названия сенсоров в UniHeater. Они были без префикса, что мешало совместно использовать несколько подсистем UniHeater с разными префиксами на одной (общей) мнемосхеме. Сейчас все сенсоры UniHeater имеют преффикс, что делает возможным совмещение нескольких подсистем UniHeater в одном окне мнемосхемы.

6. Небольшие доработки в UniHeater. Добавлен идентификатор сервера (SERVID). Цвет часов (CLOCK) и идентификатора сервера (SERVID) зависит от типа конфигурации: локальной или сетевой.

7. Оптимизированы (вычисляются исходя из числа нагревателей) размеры буферов FIFO в UniHeater.

8. В стандартную библиотеку добавлен тип TStatSum2D в файле _typ_StdLibrary.inc. Он служит для статистических расчетов (для накопления статистических сумм).

9. В стандартную библиотеку добавлен (необязательный) включаемый расчетный модуль _fun_StdStatSum. Он служит для статистических расчетов (связанных с накоплением статистических сумм). В модуле определены функции TStatSum2D_Reset, TStatSum2D_Init, TStatSum2D_Add, TStatSum2D_Calculate. См. описание: _man_StdStatSum.htm.
   
   Достоинством типа TStatSum2D и связанных с ним процедур является то, что можно накапливать статистические данные (стат.суммы) без необходимости сохранения самих данных, т.к. стат.суммы позволяют рассчитать основные статистические характеристики (математическое ожидание, дисперсию, С.К.О., линейную регрессию, линейную корреляцию) без обращения к массиву данных. Это позволяет выполнять статистическую обработку онлайн, по мере поступления данных, без промежуточного накопления данных в больших массивах.

10. Оптимизированы (вычисляются с помощью стат.сумм) расчеты в UniHeater. Для оптимизации использованы функции модуля _fun_StdStatSum.

11. Обновлена документация UniHeater. Почти везде слово "скважность" заменено на "мощность", т.к. (если быть точным) параметр QX - это скорее не скважность (отношение T1/T0), а коэффициент заполнения (отношение T1/T), выраженный в процентах. А фактически это и есть мощность в процентах от максимальной. К тому же термин "мощность" будет понятнее конечным пользователям.

12. Обновлена документация DIM. В руководстве по DIM добавлены примеры использования DIM в экспериментах CERN.

13. Обновлен редактор мнемосхем Origami. В основном обновление посвящено исправлению ошибок. Обновление предоставил А.Жирунов.

14. Добавлен файл документации crw-daq-ru-style-guide.pdf. Это (пока еще) черновик, требующий исправлений и доработки, но (уже) полезный для ознакомления. В нем даются рекомендации по стилю разработки и оформления текстов файлов конфигурации, программного кода, интерфейса пользователя в пакете CRW-DAQ.

15. По результатам проведенной работы систему UniHeater можно считать (в первом приближении) завершенной.

paramstr AppFormBounds
paramstr AppClientBounds
screen_appformleft
screen_appformtop
screen_appformright
screen_appformbottom
screen_appclientleft
screen_appclienttop
screen_appclientright
screen_appclientbottom
ClickParams
WinSelectUnderClickSensor
_typ_StdLibrary
TTagRef
Origami
DaqCreator
FindNaiByName
FindNdiByName
FindNaoByName
FindNdoByName
UniHeater
DEMO_UNIHEATER

1. Главными достижениями данного выпуска являются: обновление функции paramstr; обновление функции clickparams; обновление редактора Origami; добавление функций WinSelectUnderClickSensor, FindNaiByName, FindNdiByName, FindNaoByName, FindNdoByName; добавление стандартного заголовичного файла _typ_StdLibrary и тип TTagRef; добавление констант экранных координат приложения; первая версия UniHeater и DEMO_UNIHEATER.

2. Этот выпуск посвящен в основном системе UniHeater и попутно возникшим в процессе ее создания вопросам.

3. Обновлена функция ParamStr. В нее добавлены параметры:

              ParamStr('AppFormBounds')    - границы (Left,Top,Right,Bottom) главного окна приложения,
              ParamStr('AppClientBounds')  - границы (Left,Top,Right,Bottom) клиентской области приложения,
                                             т.е. клиентской области главного окна приложения CRW-DAQ, т.к.
                                             это окно служит контейнером для остальных окон.
              

   Необходимость этих параметров связана с тем, что функция ClickParams выдает абсолютные координаты (мыши, окна мнемосхемы и сенсора), а в функциях WinDraw, WinSelect координаты окон задаются относительно клиентской области приложения. Поэтому для пересчета координат нужно знать границы клиентской области приложения. Напоминаем, что вызов ParamStr можно сделать в любой консоли шаблонной программы командой @paramstr ... . Это позволяет разработчикам как узнавать системные параметры через консоль, так и использовать их в программах DaqPascal.

4. В системный калькулятор (связанный с окном Главной Консоли) добавлены константы экранных координат приложения:

               @view screen                обновляет список констант screen_xxx параметров экрана
               @list cons                  печатает созданный список констант:
               ...                         (абсолютные экранные координаты приложения)
               screen_appformleft          левая   координата главной формы приложения
               screen_appformtop           верхняя координата главной формы приложения
               screen_appformright         правая  координата главной формы приложения
               screen_appformbottom        нижняя  координата главной формы приложения
               screen_appformwidth         ширина  координата главной формы приложения
               screen_appformheight        высота  координата главной формы приложения
               screen_appclientleft        левая   координата клиентской области приложения
               screen_appclienttop         верхняя координата клиентской области приложения
               screen_appclientright       правая  координата клиентской области приложения
               screen_appclientbottom      нижняя  координата клиентской области приложения
               screen_appclientwidth       ширина  координата клиентской области приложения
               screen_appclientheight      высота  координата клиентской области приложения
               ...
              

   Отличие констант screen_appxxx состоит в том, что эти константы связаны с окном приложения и зависят от его размера и положения на экране, в то время как другие константы screen_xxx связаны с экраном или мониторами, без привязки к окну приложения и не зависят от его положения.

5. Обновлена функция ClickParams. В нее добавлены параметры:

              ClickParams('AppFormBounds')    - границы (Left,Top,Right,Bottom) главного окна приложения,
              ClickParams('AppClientBounds')  - границы (Left,Top,Right,Bottom) клиентской области приложения,  
                                                т.е. клиентской области главного окна приложения CRW-DAQ, т.к.
                                                это окно служит контейнером для остальных окон.
              

   Необходимость этих параметров связана с тем, что функция ClickParams выдает абсолютные координаты (мыши, окна мнемосхемы и сенсора), а в функциях WinDraw, WinSelect координаты окон задаются относительно клиентской области приложения. Поэтому для пересчета координат нужно знать границы клиентской области приложения.

6. В стандартную библиотеку добавлена функция WinSelectUnderClickSensor(win,click,opt). Она позволяет вызывать окно (мнемосхемы, кривой, таблицы) под нажатым сенсором. Например:

              if (ClickSensor='DEMO') then WinSelectUnderClickSensor('DEMO.WINDOW',ClickParams(''),'-Left,-Top');
              

   В функции используются координаты клиентской области приложения (для чего они и были добавлены).

7. В стандартную библиотеку добавлен заголовочный файл _typ_StdLibrary.inc. В этом файле (будут) определены стандартные типы, часто используемые в прикладном ПО. В настоящее время в нем определен тип TTagRef, как наиболее часто используемый в прикладных программах. В настоящее время включение _typ_StdLibrary.inc в шаблонные программы является опциональным (необязательным), но рекомендуемым (на будущее).
   
   Тип TTagRef - запись, содержащая ссылку на тег (tag), а также ряд ассоциированных (связанных) с тегом полей: номера кривых аналоговых/цифровых входов/выходов (nai,nao,ndi,ndo), целочисленные ссылки (ref,crv,tid,pid,cid,key,lnk,obj) на связанные с тегом объекты, а также вещественные данные (dat,val,tim), которые могут использоваться для обработки или обновления тегов. Тип TTagRef часто используется в прикладных программах потому, что теги обычно существуют не сами по себе, а связаны с другими объектами (входами/выходами, кривыми, окнами и т.д.). В стандартную библиотеку внесен наиболее общий (полный) набор ассоциированных с тегом данных из встречавшихся на практике. Минусом такого множества полей может быть повышенное использование памяти. При необходимости можно увеличить сегмент данных (Compiler.dtabmax) через опции компилятора.

8. В стандартной библиотеке изменен шаблон для программ template.pas. В него добавлен заголовочный файл стандартных типов:

               type
                {------------------------------}{ Declare uses program types:      }
                {$I _typ_StdLibrary}            { Include all Standard types,      }
                {------------------------------}{ And add User defined types:      }
              

   Рекомендуется при редактировании (старых) прикладных программ вставлять этот шаблон (при этом локальные определения TTagRef надо будет удалять).

9. Обновлен редактор мнемосхем Origami. В основном обновление посвящено исправлению ошибок. Обновление предоставил А.Жирунов.

10. Обновлена утилита DaqCreator. Обновление предоставил Н.Гурин.

11. В стандартную библиотеку добавлены функции FindNaiByName(name), FindNdiByName(name), FindNaoByName(name), FindNdoByName(name). Эти функции находят номер аналогового/цифрового входа/выхода по имени кривой name. Их рекомендуется вызывать при инициализации программы, а не в цикле опроса, т.к. поиск может занимать время. Лучше найти номер, запомнить его и затем использовать в цикле опроса. Функции поиска номера входа/выхода удобно использовать совместно с записью TTagRef. Например:

               var DEMO : TTagRef;                              // Тип TTagRef объявлен в {$ _typ_StdLibrary}
               ...
               DEMO.tag:=FindTag('DEMO');                      // Инициализация тега по имени DEMO
               DEMO.nai:=FindNaiByName(NameTag(DEMO.tag));     // Номер AnalogInput одноименной кривой
               ...
               bNul(rSetTag(DEMO.tag,GetAi(DEMO.nai)));        // В цикле опроса используем этот номер
               

12. Сделана первая версия новой подсистемы универсальных (унифицированных) нагревателей UniHeater. Это аналог старой подстистемы UniHeat, однако он разработан для распределенных систем. В старой системе был фиксированный префикс имен (UH_), что не позволяло, например, создавать (объединенные) системы с несколькими подсистемами нагревателей из-за конфликта имен. В новой версии можно создавать (генерировать из шаблона) подсистемы с разными префиксами, что позволяет объединять несколько подсистем нагревателей в одной конфигурации. Это принципиально важно для распределенных систем, т.к. на главном компьютере возможно объединение (по сети DIM) нескольких систем с разных серверов. В новой версии есть значительные улучшения - например, есть набор статистики (средняя мощность, температура и среднеквадратичное отклонение температуры за указанный период, например, за последнюю минуту), что позволяет облегчить настройку нагревателей и оперативно оценивать качество стабилизации температуры. Кроме того, релизована графическая программа uniheater_make.lm9 для создания конфигураций UniHeater с нужным префиксом, числом каналов и т.д.

13. Сделана первая версия новой демонстрационной конфигурации для универсальных (унифицированных) нагревателей DEMO_UNIHEATER. Конфигурация позволяет не только демонстрировать и тестировать UniHeater, но и создавать конфигурации (с разными префиксами) для прикладных систем.

SMI
Icon
DEMO_SMITEST
@run -e
@run -expand
dim_benchmark.lm9
CrwGo.exe

1. Главными достижениями данного выпуска являются: обновление сборки библиотеки "Конечных автоматов" SMI; обновление значков (иконок) пакета.

2. Обновлена библиотека SMI++ от версии v56r1 до версии v57r2, актуальной на данный момент. В проекты добавлены ресурсы ("иконки") для того, чтобы в списке процессов были легко заметны процессы SMI. Библиотека собрана самостоятельно в Visual Studio 2005.

3. Обновлена конфигурация DEMO_SMITEST, в соответствии с обновлением библиотеки SMI.

4. Обновлена библиотека Resource/Icon значков (иконок) пакета.

5. Значки вида в пакете по возможности заменены на . Постепенно будем уходить от упоминания текущей разрядности (на будущее).

6. В команде @run тоже добавилась опция -e или -exp или -expand или --expand, которая позволяет использовать переменные окружения, например:

              @run -e HtmlBrowser %CRW_DAQ_SYS_HOME_DIR%\Resource\Manual\crw-daq.htm
              @run -expand lister %CRW_DAQ_SYS_INI_FILE%
              

   Расширение (подстановка) переменных окружения (expand environment variables) происходит перед выполнением команды, поэтому переменные окружения будут подставлены даже при вызове программ, которые сами (без использования командного процессора) этого делать не могут.

7. Исправлена незначительная ошибка в тестовой утилите dim_benchmark.lm9.

8. Обновлена утилита CrwGo (тоже замена значков).

DIM
dimStat
DEMO_DIM_PING
Origami
DieselPascal
dpSystem.pas
TextDiff
CRW_DAQ_SYS_CLASS
CRW_DAQ_SYS_TITLE
CRW_DAQ_SYS_HANDLE

1. Главными достижениями данного выпуска являются: переменные окружения CRW_DAQ_SYS_CLASS,CRW_DAQ_SYS_TITLE,CRW_DAQ_SYS_HANDLE; обновление редактора Origami; обновление движка DieselPascal; обновление утилит *.LM9; обновление сборки DIM; обновление утилиты dimStat; обновление тестовой системы DEMO_DIM_PING.

2. Обновлена сборка DIM. Небольшие правки в dimStat для совместимости с GCC. Эта утилита (и вообще сборка DIM) проверена под ALT Linux Simply. Сборка бинарников DIM под ALT Linux x64 включена в demodoc.

3. Обновлена тестовая система DEMO_DIM_PING. Добавлены - среднее (PING_TIME_MEAN) и среднеквадратичное отклонение (PING_TIME_RMSD) времени отклика за период накопления статистики (PING_STAT_PERIOD). Добавлен генератор отчетов для облегчения тестирования и протоколирования.

4. Обновлен редактор мнемосхем Origami. В основном обновление посвящено исправлению ошибок (стало намного лучше). Обновление предоставил А.Жирунов.

5. Обновлен движок DieselPascal от версии 2.0.15 до версии 2.0.17. Добавлены методы (TStrings.BeginUpdate/TStrings.EndUpdate), ускоряющие вывод текстов в TMemo. Это особенно важно для реализации эмуляторов консоли.

6. Обновлены библиотеки (dpSystem.pas) и утилиты *.LM9 (числом 11 штук) с использованием новых функций. Изменения коснулись процедур обработки исключений (BugReport) и обновления текстов (MoveListToLoggerMemo, MoveLogEventsListToLoggerMemo, MoveBugReportListToLoggerMemo). После применения указанных функций обновление окон - эмуляторов консоли значительно ускорилось и стало практически незаметным для глаз (ранее при обновлении окна довольно заметно "моргали"). Зто ускорение происходит за счет того, что теперь при добавлении текста из нескольких строк прорисовка делается один раз, а раньше каждая добавленная строка вызывала прорисовку. Кроме того, в библиотеках DieselPascal и утилитах многие имена, содержащие Crw32, по возможности заменены на CrwDaq (на будущее).

7. В сборку UnixUtils добавлена команда TextDiff для (визуального) сравнения файлов. Утилита привлекла относительно маленьким размером и наличием исходных кодов на языке Object Pascal.

8. В сборке DemoDoc обновлен пакет FreeCommander в качестве дополнительного менеджера файлов. Взята версия, используемая в CERN (PHOS).

9. В сборке основного рабочего файлового менеджера Q-Dir дабавлена ссылка на пакет TextDiff. Теперь со сравнением файлов и каталогов не должно быть проблем.

10. В сервере DimSrv.exe исправлена ошибка, заключающаяся в неверном (отличающемся от запрошенного) задании приоритета процесса DimSrv.exe. Теперь приоритет задается верно.

11. Введены новые переменные окружения:
    CRW_DAQ_SYS_CLASS - строка имени класса основного окна окна пакета,
    CRW_DAQ_SYS_TITLE - строка заголовка основного окна пакета,
    CRW_DAQ_SYS_HANDLE - идентификатор основного окна пакета.
    Эти переменные нужны для того, чтобы дочерние процессы знали (через наследование переменных окружения) какое окно им надо искать, чтобы связаться с основным окном пакета (например, чтобы активировать его). Класс окна является константой (TFormCrw32), а заголовок зависит от идентификатора процесса, что гарантирует его уникальность (см. далее).

12. Заголовок пакета теперь задается при старте программы (а не в файле инициализации) и имеет вид CRW-DAQ/PID@HOSTNAME, зависящий от идентификатора процесса (PID) и имени компьютера (HOSTNAME), например, CRW-DAQ/1234@AK-W10X32-VM. В предыдущих версиях имя окна было CRW32 #PID, например, CRW32 #123. Этот шаблон наименования имеет ряд недостатков. Например, многие программы для работы с окнами ищут окна по признаку заданного начала имени окна. В этом случае, например, названия CRW32 #123 и CRW32 #1234 будут неразличимы, т.к. содержат в начале одинаковую часть строки. Потенциально это могло приводить к сбоям.
    Новый шаблон имени заголовка был выбран из следующих соображений:
    1. Нейтральное и более точное название CRW-DAQ теперь не указывает на разрядность (она может в будущем измениться).
    2. Имя пакета, идентификатор процесса и имя компьютера обеспечивают достаточную уникальность имени окна.
    3. Указанное имя хорошо приспособлено для функций поиска и активизации окон.
    4. Новое имя не содержит пробелов, что удобно для анализа строк (по словам).
    Новый заголовок более информативен и лучше подходит для идентификации окон, но смена шаблона имени (в принципе) может задеть другие программы, использовавшие старый шаблон (это надо проверять). В будущем программы должны ориентироваться на переменные окружения, а не на шаблон имени окна, который может поменяться.

13. В командах @view, @note добавилась опция -e или -exp или -expand или --expand, которая позволяет использовать переменные окружения, например:

               @silent @view -e title FormCrw32 %CRW_DAQ_SYS_TITLE%
               @silent @note -e Привет! Сеанс работы «%CRW_DAQ_SYS_TITLE%» начался.
               

DIM
dimStat
dim.cmd
dimgui.vbs
dimStatGui.lm9
Crw32.Utils.lm9
GNU Programming Standards

1. Главными достижениями данного выпуска являются: обновление сборки DIM; добавление утилиты dimStat и dimStatGui; обновление консольных утилит Crw32.Utils.lm9.

2. Этот выпуск посвящен в основном обновлению сборки DIM и добавлению утилиты dimStat.

3. Обновлена сборка DIM с версии 20.29 до 20.30.

4. В сборку DIM добавлена (созданная А.К.) утилита dimStat для сбора статистики, анализа трафика DIM. Эта консольная утилита позволяет получать информацию о статусе DIM (работает ли DNS, получить список сервисов, серверов, и клиентов). Но главное назначение утилиты - получение статистики о частоте опросов (обновлений) сервисов, трафика (байт в секунду) публикуемых данных и т.д. Утилита dimStat дополняет штатный набор диагностических и отладочных средств DIM. Она особенно полезна для больших систем (с большим числом серверов) и позволит повысить эффективность отладки и диагностики сетей DIM. К утилите есть краткое пояснение.

5. В сборку DIM добавлена (созданная А.К.) утилита dimStatGui.lm9 - GUI оболочка для утилиты сбора статистики, анализа трафика DIM. Работает как графическая надстройка для консольной утилиты dimStat.exe.

6. В сборке DIM отредактирована утилита DIM Control GUI (Центр управления DIM). В утилиту добавлены кнопки вызова dimStatGui и справочного файла index.htm. Изменились файлы dim.cmd и dimgui.vbs.

7. В консольные утилиты Crw32.Utils.LM9 на закладке DAQ добавлена кнопка DIM Stat GUI.

8. Обновлена документация DIM - dim_man_ru.pdf. Добавлено краткое описание утилиты DIMSTAT.

9. Обновлены документы GNU Programming Standards.

unix ask-input
unix ask-input-call
unix getapppath
@getapppath
@env -app
@run -wsh
Q-Dir
IsOption
photoviewerc
photoviewerw
Crw32.ini
Crw32.Prime.ini
Origami
DEMO_TESTBENCH QuoteMark
Apostrophe
ExtractFirstParam
SkipFirstParam
IsOption
GetOptionValue
AnsiQuotedIfNeed

1. Главными достижениями данного выпуска являются: добавление новых опций и переработка команд @run, @env; добавление полезной команды @getapppath; добавление 2 констант и 5 новых функций для разбора командной строки и опций; обновление утилит для файлового менеджера Q-Dir; добавление многих команд в UnixUtils.

2. Этот выпуск посвящен в основном команде @run и утилитам UnixUtils. А также тому, что возникло вокруг этого.

3. В сборку UnixUtils добавлена команда unix ask-input для пользовательского ввода.

               > unix ask-input "Ask" "Your name:" "James Bond"
               > James Bond
               
               > unix ask-input --help  - для справки
               
               использование в скриптах:
               
               for /f "delims=" %%i in ('unix ask-input "Ask" "Your name:" "James Bond"') do echo Hello, %%i.
              

   Команда вызывает диалог (с заданным заголовком и текстом) для ввода строки (с заданным начальным значением) и ждет подтверждения OK или отмены. Если нажата кнопка Yes, возвращается статус успеха (0) и печатается введенная строка, иначе возвращается статус ошибки (1). Статус используется для условного выполнения команд с параметрами (например, с помощью операторов for, &&, ||). Команда очень удобна для быстрой организации простых диалогов ввода данных в командных файлах.

4. В сборку UnixUtils добавлена команда unix ask-input-call для пользовательского ввода и выполнения команд.

               > unix ask-input-call "Ask" "Your name:" "James Bond" cmd /c echo Hello @*
               > James Bond
               
               > unix ask-input-call --help  - для справки
               
               использование в скриптах:
               
               unix ask-input-call "Ping" "HostName to ping:" "localhost" start "ping @*" ping -t @*
               
               использование в Главной Консоли:
               
               @run -sw7 unix ask-input-call "Ping" "HostName to ping:" "localhost" start "ping @*" ping -t @*
              

   Команда вызывает диалог (с заданным заголовком и текстом) для ввода строки (с заданным начальным значением) и ждет подтверждения OK или отмены. В случае подтверждения выполняет указанную команду с заменой шаблона @* на введенную строку. Команда очень удобна для быстрой организации простых диалогов ввода данных в командных файлах.

5. В сборку UnixUtils добавлена команда unix GetAppPath для поиска и выполнения приложений.

               > unix getapppath firefox.exe chrome.exe iexplore.exe .html
               > C:\Program Files\Mozilla Firefox\firefox.exe
               
               > unix getapppath firefox.exe chrome.exe iexplore.exe .html --start c:\Crw32exe\Resource\Manual\crw-daq.htm
               > "C:\Program Files\Mozilla Firefox\firefox.exe" c:\Crw32exe\Resource\Manual\crw-daq.htm  (запуск)
               
               > unix getapppath --help  - для справки
               
               использование в скриптах:
               
               unix getapppath firefox.exe .html --start c:\Crw32exe\Resource\Manual\crw-daq.htm
               
               использование в Главной Консоли:
               
               @run -sw7 unix getapppath firefox.exe .html --start --show 3 c:\Crw32exe\Resource\Manual\crw-daq.htm
              

   Команда ищет путь EXE-файла приложения, заданного в списке предпочтений. Список предпочтений проходится по порядку (слева направо), в качестве результата принимается первое подходящее описание (для которого файл найден). По умолчанию выполняется просто печать полного пути EXE-файла найденного приложения. C опцией --start или --run возможен запуск найденного приложения с заданными аргументами. Опцией --show n можно задавать режим окна приложени при запуске. Опцией --wait можно задавать режим ожидания завершения.
   В списке предпочтений можно задавать:
   1. Полное имя EXE-файла, например, %windir%\explorer.exe (переменные окружения разрешаются).
   2. Базовое имя EXE-файла, например, explorer, для поиска в PATH/PATHEXT.
   3. Короткое имя EXE-файла, например, firefox.exe, для поиска в PATH.
   4. Короткое имя зарегистрированного в системе приложения, например, firefox.exe, для поиска в реестре.
   5. Имя зарегистрированного в системе типа файла, например, htmlfile, для поиска в реестре.
   6. Имя зарегистрированного в системе расширения файлов, например, .html, для поиска в реестре.
   По умолчанию используются все методы поиска, но при необходимости можно уточнять метод поиска с помощью опций. Поиск приложения основан на том, что при установке программ они регистрируются в системе, помещая в реестре информацию о своем местонахождении, а также о типах файлов, которые они обрабатывают.
   Поиск и запуск приложений на основе заданного списка приоритетов - довольно удобная вещь. Теперь можно организовать вызов файлов (справки, документации и т.д.) так, чтобы (обычно) запускалось "любимое" приложение, но если оно не найдено, то искалось второе, третье, ..., и, наконец, приложение "по умолчанию". Например, при вызове:
   unix getapppath firefox.exe chrome.exe .html --start c:\Crw32exe\Resource\Manual\crw-daq.htm
   сначала ищется firefox, при его отсутствии - chrome, при его отсутствии - используется приложение по умолчанию для файлов *.html. При этом файл все равно будет открыт - первым из найденных приложений.

6. В сборку UnixUtils добавлены команды unix PhotoViewerC (консольная версия) unix PhotoViewerW (графическая версия) для вызова стандартного приложения Windows "Просмотр изображений". Необходимость команд связана с тем, что "Просмотр изображений" реализован через вызов динамической библиотеки rundll32.exe shimgvw.dll,ImageView_Fullscreen ..., что довольно громоздко и неудобно. Лучше так:

              @run photoviewerw c:\Crw32exe\Resource\Bitmap\SAROV.BMP
              

7. В конфигурации программы Q-Dir задействованы новые утилиты. А также добавлен ряд полезных программных утилит.

8. Во всех ДЕМО конфигурациях и в программе DaqCreator обновлены (приведены к единому виду) файлы Simulation.bat.

9. Сборка UnixUtils серьезно переработана. Изменения были внутреннего свойства (рефакторинг), они почти не коснулись внешнего поведения. Тем не менее надо повнимательнее посмотреть, не сломалось ли что-нибудь.

10. Сделаны внутренние изменения в системе обработки исключений (процедура BugReport), чтобы была возможность обрабатывать отдельные исключения как "безопасные", для которых не производится запись в журнал и отображение всплывающего окна сообщения об ошибке. Некоторые исключения (типа "файл не найден") являются вполне рядовыми случаями и не должны отвлекать внимание операторов.

11. В Главную Консоль добавлена команда @getapppath, которая работает аналогично команде unix getapppath. Фактически это интеграция команды GetAppPath в состав ядра пакета. Например:

                @getapppath firefox.exe .html --start --show 3 c:\Crw32exe\Resource\Manual\crw-daq.htm
               

12. В команду @run добавилась опция @run /wsh, которая запускает приложение через COM объект WScript.Shell (как делает VBS). Этот метод запуска имеет то преимущество, что может запускать зарегистрированные в реестре приложения, даже если их нет в PATH (аналогично работает команда cmd start). Например:

               @run firefox.exe           скорее всего не сработает, т.к. приложения нет в PATH
               @run /wsh firefox.exe      скорее всего сработает, если Firefox верно установлен
               

13. В команду @run добавилась опция @run -app "apptypes", которая задает приложение, с помощью которого надо запускать файл. Приложение задается на основании "списка предпочтений" apptypes. В список для поиска могут входить имена EXE файлов, расширения и типы файлов. Например:

               @run -app "firefox.exe chrome.exe .html" Resource\Manual\crw-daq.htm
               

    В этом примере файл справки будет открыт одним из доступных браузеров, в порядке предпочтений.

14. В команду @env добавилась опция @env -app, которая вызывает GetAppPath для поиска приложения и присваивает заданной переменной окружения найденное приложение. Например:

               @env -app HtmlBrowser=firefox.exe chrome.exe iexplore.exe .html .htm
               @env HtmlBrowser
               @run "%HtmlBrowser%" Resource\Manual\crw-daq.htm
               

    В данном примере переменной окружения HtmlBrowser будет присвоен (а затем выведен на печать) полный путь одного из перечисленных приложений (точнее - первого найденного в списке). Сначала ищется firefox, затем chrome, затем iexplore, а затем (как крайний случай) - браузер по умолчанию для файлов .html. Переменную окружения затем можно использовать для запуска найденного приложения.
    Новая опция дает возможность запуска приложений на основе списка приоритетов, чтобы файлы и документы открывались в вышем "любимом" приложении, но на худой случай (если оно не доступно) - открывались в каком-нибудь доступном приложении.

15. В Главной Консоли существенно переработана обработка опций. Вообще из практики известны такие виды опций:

               /V                короткие опции в стиле Windows
               /VERBOSE          длинные  опции в стиле Windows
               //V               короткие опции в стиле WScript
               //VERBOSE         длинные  опции в стиле WScript
               -v                короткие опции в стиле Linux
               -verbose          длинные  опции в стиле Linux
               --verbose         длинные  опции в стиле GNU
               

    Обработка опций в кодах ранее делалась "по месту", разными способами. Это было нехорошо и некрасиво. К тому же опции в стиле /Windows в других системах не поддерживаются, т.к. символ / используется в качестве разделителя в именах файлов.
    Теперь для разбора опций была сделана новая функция (IsOption), чтобы обрабатывать все опции одинаково. При этом допускаются опции любого вида, но в новых кодах предпочтение надо отдавать опциям в стиле GNU/Linux. Например:

               @run /sw3 /cd %Temp% explorer.exe  опции в старом стиле (будет работать как и раньше)
               @run -sw3 -cd %Temp% explorer.exe  опции в новом  стиле (теперь это предпочтительнее)
               

16. С помощью новых средств (@env -app) в секции Crw32.ini [System.StartupScript] добавляется ряд переменных окружения для "приложений по умолчанию", а также в секции Crw32.ini [@run] определяются псевдонимы команды @run:

                Псевдоним @run        = Переменная окружения
                ===========================================
                @FileCommander        = %WantedFileCommander%
                @FileManager          = %WantedFileManager%
                @HtmlBrowser          = %WantedHtmlBrowser%
                @WebBrowser           = %WantedWebBrowser%
                @HtmViewer            = %WantedHtmViewer%
                @IniEditor            = %WantedIniEditor%
                @IniViewer            = %WantedIniViewer%
                @TxtEditor            = %WantedTxtEditor%
                @TxtViewer            = %WantedTxtViewer%
                @LogEditor            = %WantedLogEditor%
                @LogViewer            = %WantedLogViewer%
                @BmpEditor            = %WantedBmpEditor%
                @BmpViewer            = %WantedBmpViewer%
                @DjvViewer            = %WantedDjvViewer%
                @ChmViewer            = %WantedChmViewer%
                @PdfViewer            = %WantedPdfViewer%
                @PdfReader            = %WantedPdfReader%
                @RtfEditor            = %WantedRtfEditor%
                @DocEditor            = %WantedDocEditor%
                @EmlClient            = %WantedEmlClient%
               
               Например:
               
                @run HtmViewer Resource\Manual\crw-daq.htm
                @run PdfViewer Resource\DimSite\dim_manual.pdf
                @run BmpViewer Resource\Bitmap\SAROV.BMP            
               

    При этом конкретное приложение определяется на основании "списка предпочтений", который определяет для каждого вида приложений возможные варианты в порядке приоритета. Будет выбрано наиболее подходящее приложение из доступных в системе.
    
    Кроме того, для некоторых часто используемых расширений (типов файлов) добавлены ассоциации:

                Расширение            = Приложение
                ===========================================
                .html                 = %WantedHtmlBrowser%
                .htm                  = %WantedHtmlBrowser%
                .url                  = %WantedHtmlBrowser%
                .log                  = %WantedLogViewer%
                .out                  = %WantedLogViewer%
                .pdf                  = %WantedPdfViewer%
                .djv                  = %WantedDjvViewer%
                .djvu                 = %WantedDjvViewer%
                .bmp                  = %WantedBmpViewer%
                .gif                  = %WantedBmpViewer%
                .ico                  = %WantedBmpViewer%
                .png                  = %WantedBmpViewer%
                .jpg                  = %WantedBmpViewer%
                .jpeg                 = %WantedBmpViewer%
                .tiff                 = %WantedBmpViewer%
                
               Например:
               
                @run Resource\Manual\crw-daq.htm
                @run Resource\DimSite\dim_manual.pdf
                @run Resource\Bitmap\SAROV.BMP            
               

    Все это позволяет расширить возможности команды @run. Теперь для открытия файлов и документов разного типа будут использоваться предпочитаемые приложения, а не те, которые стоят в операционной системе по умолчанию.

17. Команда @run существенно переработана.
    • Более корректно обрабатываются имена файлов в кавычках.
    • Добавлены псевдонимы в секции Crw32.ini [@run]. Псевдонимы (alias) начинаются с @ (например @LogViewer), которые заменяются при выполнении на указанный файл (может содержать %переменные_окружения%). Они отличаются тем, что не добавляют путь файла в переменную окружения CRW_DAQ_SYS_PATH. То есть команда будет выполняться, но её каталог в пути поиска программ не включается.
    • Добавлены ассоциации в секции Crw32.ini [@run]. Ассоциации начинаются с . (например .html) и позволяют вызывать нужный обработчик по расширению файла, минуя системные ассоциации, что позволяет сделать прикладной код менее зависимым от настроек системы. Они также не добавляют путь файла в переменную окружения CRW_DAQ_SYS_PATH. То есть команда будет выполняться, но её каталог в пути поиска программ не включается.
    • Опции обрабатываются в новом стиле.

18. Меню Web переименовано в Ссылки. В него добавлено много полезных ссылок, которые помогут ускорить работу прикладного программиста, т.к. нужные средства всегда будут под рукой. Кроме того, в меню Файл/Создать добавлен вызов DaqCreator и DaqConstructor.

19. Обновлена документация DIM. Добавлены рекомендации по проектированию DIM серверов (с точки зрения производительности). Добавлены соглашения о наименовании DIM серверов. В новой редакции предлагается давать серверам имена вида DIM_TASK/СИСТЕМА/SERVER с постоянным префиксом DIM_TASK. Причина - надо отделить пространство имен служебных сервисов DIM от информационных. Это позволяет легко организовывать экспорт всех данных сервера через мост DimBridge. При этом ненужной публикации служебных данных не происходит.

20. В большом числе DEMO конфигураций (кроме относительно устаревших) сделано наименование DIM серверов с префиксом DIM_TASK, в согласии с новыми соглашениями о наименовании.

21. Изменена структура основного файла конфигурации Crw32.ini. Теперь он ссылается на Resource\Crw32.Prime.ini, в который включаются все остальные файлы конфигурации. Причина - желание максимально облегчить основной конфигурационный файл и вынести все сложные специфические конфигурации в каталог Resource.

22. В DaqPascal добавлена группа констант и функций для анализа и формирования командной строки, содержащей кавычки и опции.
    • QuoteMark - константа, символ двойной кавычки (Quotation Mark по Unicode).
    • Apostrophe - константа, символ одинарной кавычки (Apostrophe по Unicode).
    • ExtractFirstParam - выделение первого аргумента строки (который может быть в кавычках).
    • SkipFirstParam - пропуск первого аргумента строки (который может быть в кавычках), возвращается остаток строки.
    • IsOption - проверка того, что аргумент является опцией (типа -help).
    • GetOptionValue - выделение из опции (типа --file=help.htm) значения (help.htm).
    • AnsiQuotedIfNeed - помещает строку аргумента в кавычки, если надо (если в ней есть пробелы).
    В документации есть подробный пример, который иллюстрирует применение этих функций. Пример рабочий, взят из DEMO_TESTBENCH.
    
    Новые функции содержат практически все, что надо для разбора или формирования командной строки с параметрами, заключенными в кавычки (если они содержат пробелы) и опциями (если нужны опции).
    
    Следует, однако, заметить, что новые функции для анализа строк с кавычками существенно сложнее (по внутренней реализации) и работают несколько медленнее, чем простой разбор слов по старой схеме на основе WordCount/ExtractWord/SkipWords. Поэтому там, где кавычки не используются, лучше использовать старые функции разбора слов.

23. В демо конфигурацию DEMO_TESTBENCH внесен пример использования новых функций обработки командной строки, вызов по @test 3 в консоли устройства.

24. Обновлен редактор мнемосхем Origami. Обновление предоставил А.Жирунов.

Q-Dir
FileManager
Crw32.Utils.lm9
system-shutdown-dialog
DaqConstructor
unix ask-confirm
unix ask-confirm-call
unix xcopy-update
unix xcopy-overwrite
unix robocopy-update
unix robocopy-mirror
Origami
DIMgen

1. Главными достижениями данного выпуска являются: добавление файлового менеджера Q-Dir; добавление команд подтверждения и копирования/синхронизации в UnixUtils обновление консольных утилит Crw32.Utils.lm9.

2. В инсталлятор runtime добавлена программа Q-Dir. Это свободный (freeware) двухпанельный файловый менеджер (к сожалению, без исходных кодов). Его достоинством является маленький размер (архив менее 700K), портабельность (не требует установки, не пишется в реестре) и работа под всеми версиями Windows.
   
   Добавление файлового менеджера Q-Dir обусловлено тем, что на машинах с минимальной установкой (когда ставится только runtime) работа крайне затрудняется из-за отсутствия файлового менеджера. Штатный Проводник (explorer) проблему не решает, с ним трудно работать из-за низкой функциональности. При этом возможность развернуть полную среду есть далеко не всегда. Поэтому на такой случай нужен хотя бы минимальный файловый менеджер, который должен быть всегда доступен. Небольшой по размеру Q-Dir прекрасно подходит на роль рабочего инструмента, который всегда под рукой.
   
   Вызов файлового менеджера в Главной Консоли пакета можно делать так:

               @run /cd .. Q-Dir           прямой вызов Q-Dir
               @run /cd .. FileManager     вызов через псевдоним
               
               Примечание: псевдонимы задаются в секции Crw32.ini [@run]
              

   В приведенном примере опция /cd .. нужна для того, чтобы файловый менеджер запускался в другом (родительском) каталоге и не блокировал рабочую папку пакета, что (потенциально) может помешать при инсталляции новой версии пакета.

3. В меню Инструменты добавлена команда  Файловый Менеджер. Она запускает команду @run /cd .. FileManager.

4. В консольные утилиты Crw32.Utils.LM9 на закладке Tools добавлена кнопка  Q-Dir File Manager.

5. Слегка модифицирована библиотека изображений в DieselPascal/External.

6. В Crw32.ini [System.StartupScript] теперь задается переменная окружения PROGRAMS_PORTABLE. Она указывает на католог %SystemDrive%\Programs\Portable, где у нас будут располагаться переносимые (portable) программы, т.е. программы, не требующие специального инсталлятора и не регистрируемые в реестре. Именно там будет расположена, например, программа Q-Dir. Ссылка %PROGRAMS_PORTABLE%\SoftwareOK.com\Q-Dir\Q-Dir.exe должна работать в Главной Консоли.

7. В Crw32.ini [System.StartupScript] теперь задается переменная окружения ask-confirm-timeout=60. Это время ожидания по умолчанию для команды unix ask-confirm в секундах. Если за это время кнопка не нажата, диалог отменяется (нажимается Cancel).

8. В сборку UnixUtils добавлена команда unix system-shutdown-dialog. Как нетрудно догадаться, команда вызывает диалог для завершения работы системы. Эта команда может использоваться в прикладных системах для завершения работы, особенно если обычная кнопка убрана с экрана (спрятана).

9. В сборку UnixUtils добавлена команда unix ask-confirm.

               unix ask-confirm --timeout 60 "Подтверждение" "Хотите это сделать?" && cmd /c echo Это сделано.
              

   Команда вызывает диалог Yes/No/Cancel и ждет подтверждения в течение timeout секунд. Если нажата кнопка Yes, возвращается статус успеха (0), иначе возвращается статус ошибки (1). Статус используется для условного выполнения команд (например, с помощью операторов &&, ||). Команда очень удобна для быстрой организации простых диалогов подтверждения в командных файлах.

10. В сборку UnixUtils добавлена команда unix ask-confirm-call.

                unix ask-confirm-call --timeout 60 "Подтверждение" "Хотите это сделать?" cmd /c echo Это сделано.
               

    Эта команда выводит запрос unix ask-confirm и при подтверждении выполняет указанную команду с аргументами. Она тоже может использоваться в командных файлах, но гораздо лучше приспособлена для вызова из Главной Консоли, так как выполняется как один оператор (не надо организовывать проверку статуса и т.д.).

11. В сборку UnixUtils добавлены команды unix xcopy-update, unix xcopy-overwrite, unix robocopy-update, unix robocopy-mirror. Это команды копирования, резервирования и синхронизации файлов и папок.

                unix xcopy-update    C:\Source\Data D:\Backup\Data    - обновляет данные из папки Source в папку Backup
                                                                        копируются только новые или измененные файлы
                                                                        избыточные файлы из Backup не удаляются
                                                                        
                unix xcopy-overwrite C:\Source\Data D:\Backup\Data    - копирует  данные из папки Source в папку Backup
                                                                        копируются и перезаписываются все файлы
                                                                        избыточные файлы из Backup не удаляются
                                                                        
                unix robocopy-update C:\Source\Data D:\Backup\Data    - обновляет данные из папки Source в папку Backup
                                                                        копируются только новые или измененные файлы
                                                                        избыточные файлы из Backup не удаляются
                                                                        
                unix robocopy-mirror C:\Source\Data D:\Backup\Data    - зеркалит  данные из папки Source в папку Backup
                                                                        копируются только новые или измененные файлы
                                                                        избыточные файлы из Backup удаляются
                                                                        
                Примечания: 1) Папки источника и приемника должны существовать (их надо создать заранее).
                            2) ROBOCOPY аналогична XCOPY, но надежнее в работе, а также имеет больше опций.
               

    Приведенные команды копирования, резервирования и синхронизации можно использовать совместно с утилитами unix ask-confirm, unix ask-confirm-call, чтобы подтверждать выполнение операций (которые могут быть долгими и критичными с точки зрения сохранности данных).
    
    Первоначально перечисленные команды создавались для интеграции в файловый менеджер Q-Dir, но они представляют самостоятельный интерес и для прикладного программирования в пакете CRW-DAQ.

12. В сборку UnixUtils добавлена команда unix shell-appactivate.

                unix shell-appactivate "CRW32 #123" && cmd /c echo Программа активирована.
               

    Команда активирует программу с указанным заголовком в окне (если оно найдено). Активация заключается в том, что окно программы вытаскивается наверх и получает фокус ввода. Утилита работает аналогично команде unix setforegroundwindow, но реализована на VBS и имеет ряд отличий в алгоритме поиска окна.

13. В меню Q-Dir добавлены ссылки на огромное число системных и служебных программ и папок, чтобы сделать доступным их быстрый вызов из одного места. Это превращает Q-Dir в мощный инсструмент для настройки и администрирования системы. Меню программ находятся в файле настроек в секции Q-Dir.ini [Programs], а папок - в секции Q-Dir.ini [Quick-Links].
    
    Кроме того, для резервного копирования данных в меню Q-Dir сделаны разделы (Backup tools) с вызовом (после запроса подтверждения) утилит резервирования (xcopy-update, xcopy-overwrite, robocopy-update, robocopy-mirror).
    
    Поскольку все команды в меню Q-Dir сделаны на основе (уже имеющихся на диске) системных программ и (маленьких по размеру) скриптов, то Q-Dir предоставляет чрезвычайно компактный, и в то же время довольно мощный инструментарий, вполне достаточный для настройки и технической поддержки систем на машинах конечных пользователей, где работают прикладные системы измерений и управления.

14. Инструменты Origami, Kirigami, DIMgen логически объединены в один набор инструментов DaqConstructor и перенесены в общую папку Resource/DaqSite/DaqConstructor. Ссылка на DaqConstructor внесена в список TopList основного файла справки.

15. В консольные утилиты Crw32.Utils.LM9 на закладке Tools добавлена кнопка DaqConstructor.

16. Обновлен редактор мнемосхем Origami. Обновление предоставил А.Жирунов.

17. Добавлен генератор DIM сервисов DIMgen. Обновление предоставил А.Жирунов.

DEMO_DIM_PING
dim_benchmark.lm9
&DimSrv

1. Главными достижениями данного выпуска являются: обновление сервера &DimSrv; обновление утилиты dim_benchmark.lm9; добавление тестовой системы DEMO_DIM_PING.

2. Этот выпуск посвящен тестовой системе (DEMO_DIM_PING) для анализа производительности и быстроты (времени отклика) работы сервера &DimSrv сетевой технологии DIM. Целью было создание инструмента, позволяющего оценить свойства и границы применимости DIM для создания распределенных систем управления.

3. Создана тестовая система DEMO_DIM_PING для анализа производительности и быстроты (времени отклика) работы сервера &DimSrv сетевой технологии DIM.
   Тестовая система DEMO_DIM_PING работает следующим образом. DIM клиент посылает DIM серверу одиночное или периодическое сообщение (ping) с меткой времени и идентификатором клиента. Сервер, получив этот пинг, формирует ответное сообщение заданного размера и посылает его клиенту. Клиент, получив ответ, извлекает метку времени и вычисляет время отклика (pingtime), т.е. разницу времени между посылкой пинга и получением ответа. Измеренный pingtime отображается в виде графика и частотной гистограммы, чтобы оценить не только величину, но и распределение времени отклика. При этом измеряется частота пингов в секунду, объем передаваемых данных и нагрузка процессора (в данном процессе).
   Имеется краткое описание.

4. Обновлена тестовая утилита dim_benchmark.lm9. В неё добавлены (на закладке DIM_PING Benchmark) средства для тестирования производительности сетевой технологии DIM и встроенного сервера &DimSrv с помощью тестовой системы DEMO_DIM_PING. С помощью этих средств можно сконфигурировать и запустить тестовую систему с заданным префиксом, числом публикуемых сервисов и т.д.

5. Обновлен сервер &DimSrv.
   В DimLib.pas проведена оптимизация блокировок, снижающая нагрузку на процесс DimSrv.exe примерно в два раза при высокой частоте опросов.
   В DimSrv.pas увеличены (в 4 раза) буферы памяти для возможности обслуживать системы большого размера.
   В DimSrv.cfg увеличены (в 4 раза) буферы FIFO для возможности обслуживать системы с большим потоком данных.
   Увеличение буферов памяти сделано по результатам (предварительного) тестирования сервера &DimSrv с помощью системы DEMO_DIM_PING. Увеличение буферов "стоит" примерно 5.5MB памяти, что при современных объемах памяти признано оправданной платой за увеличение производительности и пропускной способности сервера &DimSrv.

paramstr
@daq compile
@compile device
&CronSrv
dim_benchmark.lm9
Crw32.Utils.lm9
dpSysUtils.pas
CfgConfigurator.lm9
CrcConfigurator.lm9
DaqCreator.lm9
TestPing.lm9
SmiGenGui.lm9
01_Template_Utility.LM9
PostCommandToCrwDaq

1. Главными достижениями данного выпуска являются: обновление функции ParamStr; обновление консольных утилит Crw32.Utils.lm9; устранение ошибки реализации @daq compile ...; увеличение максимального числа COM портов (MaxPortNum).

2. Обновлена функция ParamStr.
   В нее добавлены параметры:

              ParamStr('AnsiCodePage')             Кодовая страница Windows (обычно 1251)
              ParamStr('OemCodePage')              Кодовая страница DOS     (обычно 866)
              ParamStr('System Screen Width')      Ширина экрана, в пикселях
              ParamStr('System Screen Height')     Высота экрана, в пикселях
              ...и т.д. ...                        см. подробнее ParamStr('System Screen ...') 
              

   Напоминаем, что вызов ParamStr можно сделать в любой консоли шаблонной программы командой @paramstr ... . Это позволяет разработчикам как узнавать системные параметры через консоль, так и использовать их в программах DaqPascal.

3. Н.Гурин обнаружил серьезную ошибку в реализации командах компиляции @daq compile ... и @compile device ..., которые используются для перезапуска серверов "на лету". Она проявлялась в виде "мертвой блокировки" (deadlock) в случае вызова команды @daq compile &CronSrv.
   В ходе "разбора полетов" было выяснено, что проблема возникает из-за использования при инициализации программы CronSrv.pas вызова выражений типа eval('@system ...'), например, eval('@system ansicodepage'). Взаимная блокировка возникает из-за того, что команда @daq compile ... выполняется в критической секции, так же как и вызов eval('@system ansicodepage'). Для устранения ошибки, во-первых, в коде сервера CronSrv.pas "проблемные" вызовы вида eval('@system AnsiCodePage') заменены безопасными вызовами вида ParamStr('AnsiCodePage'). Во-вторых, коды команд @daq compile ... и @compile device ... изменены (выведены из критической секции) так, чтобы принципиально исключить deadlock. Сейчас проблема вроде бы устранена.

4. Добавлена тестовая утилита dim_benchmark.lm9. Она предназначена для тестирования производительности сетевой технологии DIM. Пока реализован тест для проверки "чистого" DIM (не интегрированного в пакет CRW-DAQ). Этот тест использует "штатные" (входящие в дистрибутив DIM) утилиты benchServer, benchClient. Для проверки интегрированного в пакет сервера &DimSrv требуются дополнительные усилия. Вероятно, это будет сделано в ближайшее время.

5. Обновлена библиотека dpSysUtils.pas для DieselPascal. Добавлены некоторые функции времени (msecnow и другие).

6. В консольные утилиты Crw32.Utils.LM9 на закладке DAQ добавлена кнопка DIM Benchmark для вызова утилиты тестирования производительности сетевой технологии DIM. В самой утилите Crw32.Utils.LM9 сделана процедура посылки сообщения без потери фокуса ввода (PostCommandToCrwDaq), которая позволяет сократить число переключений между CRW-DAQ и утилитой Crw32.Utils.LM9, что делает работу более удобной. Раньше для всех команд использовалась процедура посылки сообщения с передачей фокуса ввода (SendCommandToCrwDaq), которая всегда переключала фокус на CRW-DAQ, даже если в этом не было необходимости. Теперь для большинства команд используется PostCommandToCrwDaq, а вызовы SendCommandToCrwDaq сохранены только для команд, где это нужно по логике работы.

7. Обновлены также другие утилиты (CfgConfigurator.lm9, CrcConfigurator.lm9, DaqCreator.lm9, TestPing.lm9, SmiGenGui.lm9, 01_Template_Utility.LM9). В них тоже добавлена функция PostCommandToCrwDaq.

8. Устанена ошибка в команде @compile file.dpr компиляции проектов ObjectPascal. Ошибка была в том, что не указывался каталог назначения компиляции, в результате чего компиляция происходила во временный каталог (поди потом найти откомпилированный файл *.exe или *.dll). Сейчас результат компиляции переносится в каталог файла проекта (*.dpr).
   Кроме того, введены две команды @compile silent и @compile verbose для отключения или включения режима подробной компиляции проектов *.dpr. По умолчанию компиляция происходит молча (silent), при включении "многословного" режима (verbose) при компиляции выдается подробная диагностика.

9. Проведена небольшая оптимизция службы Daq.Adams, которая обслуживает опрос всех ADAM-устройств. Оптимизация сделана для того чтобы можно было увеличить максимальное число COM-портов без потери производительности.

10. Максимальное число COM-портов увеличено с 64 до 250. Скорее всего, это окончательное значение.

uart
MaxPortNum

1. Главными достижениями данного выпуска являются: оптимизация службы System.uart; увеличение максимального числа COM портов (MaxPortNum).

2. Данный выпуск продолжает работы по виртуальным COM-портам - com0com. Работа с виртуальными портами может потребовать большего числа доступных COM-портов, чем предусмотрено сейчас. Их число надо увеличить.

3. Проведена небольшая оптимизция службы System.uart, которая обслуживает опрос всех COM-портов. Оптимизация сделана для того чтобы можно было увеличить максимальное число COM-портов без потери производительности.

4. Максимальное число COM-портов увеличено с 32 до 64 (хватит пока?). Это число можно увеличить до 255 изменением константы _UART.MaxPortNum, которая задает максимальное число опрашиваемых COM-портов. После изменения константы требуется перекомпиляция пакета.

com0com
com0com.bat
com0com.lm9
Crw32.Utils.lm9
WEB_MetaSetCookie
Origami
Kirigami
DEMO_APC
EGP_VACS
EGP_MZVS
EGP_MAIN
DEMO_OSM
DEMO_PID
task_kill
&CronSrv
DEMO_CRON
@task_init
@task_free
@task_ctrl
@task_view
@task_run
@task_poll
@task_kill
@task_send
@task_recv

1. Главными достижениями данного выпуска являются: исправление ошибок в пакете com0com; исправление WEB_MetaSetCookie; обновление Origami и добавление Kirigami; обновление консольных утилит Crw32.Utils.lm9; довавление службы задач в сервере &CronSrv.

2. Данный выпуск продолжает работы по добавлению пакета для работы с виртуальными COM портами - com0com.

3. Исправлено 2 ошибки в com0com.bat - запуск утилит setupg, setupc должен производиться в каталоге установки com0com.

4. Исправлена ошибка в файле документации (там была использована внешняя ссылка вместо относительной).

5. Сделаны небольшие доработки в com0com.lm9.

6. Месяц (с 17.05 по 18.06) "выпал" из-за болезни.

7. Изменения в процедуре WEB_MetaSetCookie, предложенные А.Жируновым в следующем сообщении:

              Конструкция meta <http-equiv="Set-Cookie" content="*"> более не поддерживается браузерами с 2020-11-30 как устаревшая.
              Современные браузеры ругаются на данный тег и блокируют их куки, обойти это можно только добавлением домена в исключения.
              Чаще всего на современных сайтах куки посылают в заголовке (не в теге!) header документа, но оказалось,
              что TinyWeb не имеет возможности генерировать и отправлять куки динамически в заголовке.
              Потому пришлось задавать их средствами JavaScript, а так как куки шифруются, то на безопасность это не повлияет.
                {
                Set meta tag Set-Cookie Name=Value.
                }
                procedure WEB_MetaSetCookie(Name,Data:String);
                begin
                 if Length(Name)>0 then
                 WEB_Reply('<script>document.cookie="'+Name+'='+Data+'";</script>');
                end;
              

   См. также https://learn.javascript.ru/cookie.
   Спецификация HTML5 предлагает игнорировать конструкцию meta <http-equiv="Set-Cookie" content="*">, поэтому от неё вреда вроде бы не будет. Для обратной совместимости её можно сохранить. Поэтому в принятой реализации сохранены оба способа задания cookie.
   Сделанные изменения касаются только прикладных систем, использующих сервер &WebSrv.

8. Обновлен редактор мнемосхем Origami. Обновление предоставил А.Жирунов.

9. Добавлен редактор диалогов Kirigami. Обновление предоставил А.Жирунов.

10. В консольные утилиты Crw32.Utils.LM9 на закладке DAQ добавлена кнопка Kirigami для вызова редактора диалогов.
    Также на закладке CRW добавлены кнопки List of.. Tasks, Hosts, Domains для получения списка задач, серверов и доменов.

11. Обновлена библиотека DieselPascal\External.

12. Обновлен движок DieselPascal от версии 2.0.14 до версии 2.0.15.

13. Добавлена ДЕМО конфигурация DEMO_APC с драйвером APC Smart-UPS. Обновление предоставил Э.Братишка.

14. Добавлена ДЕМО конфигурация EGP_VACS для управления вакуумной системой, которая заменила собой старую систему EGP_ACVS. Обновление предоставил Н.Гурин.

15. Добавлена ДЕМО конфигурация EGP_MZVS для управления вакуумной системой микрозонда. Обновление предоставил Н.Гурин.

16. Добавлена ДЕМО конфигурация EGP_MAIN для управления верхнего уровеня. Обновление предоставил Н.Гурин.

17. Добавлена ДЕМО конфигурация DEMO_OSM с драйвером шагового двигателя серии OSM производства ООО «Онитекс». Обновление предоставил Н.Гурин.

18. Добавлена ДЕМО конфигурация DEMO_PID с алгоритмом PID регулирования (новая версия). Старая версия (пока) сохранена в каталоге DEMO_PID_OLD и (возможно) будет удалена в будущем, после "обкатки" новой версии регулятора. Обновление предоставил М.Ефремов.

19. Изменения в работе функции task_kill. В предыдущей версии task_kill с консольными процессами методы 1 (WM_CLOSE), 2 (WM_QUIT) не работали. Это связано с тем, что у консоли не срабатывала функция поиска окна, которому надо передавать сообщение. Сейчас поиск окна консоли происходит по номеру процесса и имени класса окна (ConsoleWindowClass). Теперь эти методы (вроде бы) должны работать корректно.
    Для консольных окон метод 1 (WM_QUIT) эквивалентен нажатию CTRL-C или нажатию кнопки закрытия окна ("крестик"). Это "мягкий" способ завершения процесса, при котором процессу дается возможность завершиться нормальным образом, выполнив предусмотренные процедуры перед выходом. Напротив, метод 0 (TerminateProcess) является "жестким", когда процесс завершается принудительно, без возможности выполнить предусмотренные процедуры перед выходом.
    Рекомендуется завершать (консольные) процессы в два этапа - сначала методом 1 (WM_CLOSE) в течение некоторого времени, а потом (для надежности) методом 0 (TerminateProcess). То есть завершение процессов рекомендуется делать примерно так:

               if task_wait(tid,0) then                     // Если процесс работает
               if task_kill(tid,1,0,1000) then              // Пробуем убить процесс "мягко" (через WM_CLOSE) в течение 1000 ms
               Success('Kill(1) PID '+str(task_pid(tid)));  // Если получилось, то пишем сообщение
               if task_wait(tid,0) then                     // Если процесс все еще работает
               if task_kill(tid,0,0,1000) then              // Пробуем убить процесс "жестко" (через Terminate) в течение 1000 ms
               Success('Kill(0) PID '+str(task_pid(tid)));  // Если получилось, то пишем сообщение
               

    При использовании метода завершения 1 (WM_CLOSE) следует иметь в виду код возврата. Если консольная задача завершается через ^C (CTRL-C), что эквивалентно посылке консольному окну WM_CLOSE, то кодом возврата процесса будет

     STATUS_CONTROL_C_EXIT = -1073741510; // Код завершения при CTRL-C = $C000013A 

    См. например NTSTATUS Error Code List.

20. Также поправлены неточности в документации по функции task_kill.

21. Добавлена служба задач в сервере &CronSrv. Для этого обновлен программный код сервера CronSrv.pas (ключевые слова для поиска изменений - task_, tasker). Служба задач позволяет запускать, завершать и контролировать задачи (процессы) по именам через консольные команды @task_xxxx. При этом служба задач может автоматически следить за работой процессов и (пере)запускать их в случае падения. Таким образом, управление процессами можно проводить на уровне конфигурирования, без написания программного кода на DaqPascal. Есть пример конфигурирования задач. Задачами также можно управлять из других программ путем посылки сообщений серверу &CronSrv (см. процедуру Cron).

22. Обновлена демо конфигурация DEMO_CRON, чтобы проиллюстрировать работу службы задач &CronSrv. Конфигурирование службы задач - в файле DEMO_CRON.CFG.

23. Служба задач завершает (пока) цикл работ по интеграции пакета com0com. Теперь все необходимые для com0com процессы (com2tcp) можно запускать через службу задач сервера &CronSrv, помещая их в секцию [&CronSrv.StartupScript].

lsps
libsys.vbs
com0com
com0com.bat
com0com.lm9
com2tcp
hub4com

1. Всех поздравляю с Пасхой и Днем Победы.

2. Главными достижениями данного выпуска являются: добавление утилиты lsps; добавление пакета com0com для работы с виртуальными COM портами; обновление консольных утилит Crw32.Utils.lm9.

3. Данный выпуск посвящен преимущественно добавлению пакета для работы с виртуальными COM портами - com0com. Сопутствующие утилиты добавлялись для достижения этой цели, хотя эти утилиты полезны и сами по себе.

4. В сборки UnixUtils и Runtime добавлена команда lsps. Название можно считать комбинацией известных команд - ls (list) и ps (process status), то есть совместно получается (list process status) - список процессов. Команда lsps выводит список процессов с заданным PID, PPID и именем Name процесса (имя процесса совпадает с коротким именем EXE файла). Нулевое значение PID, PPID или пустое имя процесса означает любой процесс. При выводе списка выводится: номер процесса PID, номер родительского процесса PPID, приоритет процесса Pr, имя процесса Name и командная строка CommandLine, если она доступна (системные процессы могут быть недоступными).
   Например:

       unix lsps                               вывод списка всех процессов
       unix lsps 4501                          вывод информации по процессу номер 4501
       unix lsps 4501 && echo process exists   проверка существования процесса с заданным номером
       unix lsps 0 3715                        вывод списка процессов порожденных процессом 3715
       unix lsps 0 0 cmd.exe                   вывод всех процессов cmd.exe
       @run unix lsps & pause                  вызов утилиты lsps из Главной Консоли
       
       Пример вывода:
       > unix lsps 0 0 cmd.exe
       PID   PPID  Pr  Name     CommandLine
       4552  4584  8   cmd.exe  C:\WINDOWS\system32\cmd.exe /c unix lsps & pause
       1392  3644  8   cmd.exe  cmd /k call .cmdansicon --prompt & call ver & echo User «main» running in colorized console mode... &
       2164  1116  8   cmd.exe  C:\WINDOWS\system32\cmd.exe /Q /C lsps 0 0 cmd.exe
              

   Утилита lsps была создана в ходе работ по добавлению пакета com0com, но она полезна и сама по себе, например, для командных сценариев или проверки существования заданных процессов.

5. В сборке обновлены Firefox и LibreOffice.

6. В ходе создания утилиты lsps обновлена библиотека libsys.vbs, которая входит во все инсталляторы. Поэтому обновились все инсталляторы.

7. В сборки UnixUtils и Crw32-Runtime добавлен пакет com0com.
   Виртуальные COM порты приобретают большую актуальность в связи с несколькими причинами:
   1. Потребность проброски COM портов при использовании виртуальных машин, например, VirtualBox.
   2. Потребность проброски COM портов через сеть Ethernet в некоторых распределенных системах.
   3. Многие фирмы реализуют драйверы устройств USB или Etnernet в виде виртуальных COM портов.
   4. Виртуальные COM порты позволяют создавать простые в использовании каналы связи между процессами (IPC).
   5. Виртуальные COM порты позволяют создавать реалистичные симуляторы реальных устройств для отладки драйверов.
   Большинство виртуальных COM портов - коммерческие, с закрытым кодом, что в зачастую неприемлемо. Пакет com0com - один из немногих свободных пакетов с открытым исходным кодом под лицензией GPL. Поэтому для включения в сборку пакета был выбран именно он.
   
   Назначение пакета com0com - драйвер ядра и инструменты для работы с виртуальными COM портами. Пакет содержит несколько компонентов, которые совместно решают задачу обеспечения работы с виртуальными COM портами.
   1. Драйвер ядра com0com.sys с сопутствующими файлами (*.inf) для реализации программного нуль-модема, т.е. пары соединенных друг с другом виртуальных COM портов. При этом данные, записанные в один порт, могут читаться из другого (парного) порта и наоборот.
   2. Консольная утилита setupc.exe для создания и настройки виртуальных COM портов через консольные команды.
   3. Графическая утилита setupg.exe для создания и настройки виртуальных COM портов через графическое окно диалога.
   4. Консольная утилита com2tcp.exe для проброски виртуального COM порта в сеть TCP/IP или обратно.
   5. Консольная утилита hub4com.exe для проброски виртуального COM порта с расширенными возможностями.
   6. Специально созданная консольная утилита com0com.bat, облегчающая интеграцию com0com в пакет CRW-DAQ.
   7. Специально созданная графическая утилита com0com.lm9, облегчающая интеграцию com0com в пакет CRW-DAQ.
   8. Документация и исходные коды пакета com0com.
   
   Утилита com0com.bat специально создана для работы с пакетом com0com из Главной Консоли CRW-DAQ (а через неё - из программ DaqPascal). Например:

       @run /sw7  com0com --install        вызов инсталлятора пакета com0com (в молчаливом режиме)
       @run /hide com0com --setupg         вызов графической утилиты для настройки виртуальных COM портов
       @run /hide com0com --gui            вызов графической утилиты для инсталляции и настройки пакета com0com
              

   Утилита com0com.lm9 специально создана для удобной работы с пакетом com0com через графическое окно диалога. Фактически это графическая надстройка над утилитой com0com.bat, облегчающая её использование. Например:

       @run com0com.lm9                    вызов графической утилиты для инсталляции и настройки пакета com0com
              

   Следует заметить, что пакет com0com не инсталлируется "по умолчанию", т.к. 1) виртуальные порты нужны не всегда, и 2) при установке драйвера ядра требуется обязательное подтверждение пользователя, что исключает возможность установки в "молчаливом" режиме. По этой причине установка com0com должна производиться явно, например, через Консольные Утилиты, где на закладке DAQ есть вызов com0com.
   
   Работа с виртуальными портами производится примерно так.
   1. Инсталлируется драйвер ядра, по умолчанию в каталог %ProgramFiles%\com0com. При инсталляции пользователь должен подтвердить установку драйвера.
   2. С помощью утилиты setupg создаются и настраиваются нуль-модемные пары виртуальных портов. Пакет com0com позволяет создавать любое число нуль-модемных пар виртуальных портов.
   3. При использовании нуль-модемной пары в качестве канала межпроцессной связи (IPC) две программы подключаются к парным COM портам и передают друг другу данные.
   4. Для проброски COM порта в сеть TCP/IP один конец виртуальной нуль-модемной пары используется клиентской программой, а второй подключается к программе com2tcp, которой в аргументах передаются все необходимые данные (номер и настройки COM порта, имя сервера (для клиента), номер TCP порта подключения).
   5. Программа com2tcp должна вызываться для каждого порта, при этом за работой каждой программы надо следить и перезапускать её при необходимости.
   6. Программа hub4com содержит расширенные возможности по сравнению с com2tcp, например, возможность разветвления порта на несколько подключений. Эти возможности используются в особых случаях.
   Например:

       1) Создается нуль-модемная пара портов COM3--COM4
       2) К COM3 подключается программа (драйвер CRW-DAQ)
       3) Запускается программа проброски порта, например:
          com2tcp  --baud 115200 --data 8 --stop 1 --parity no --ignore-dsr \\.\COM4 26001
       4) По другую сторону указанного TCP порта (26001) подключается, например, преобразователь Ethernet--COM
       5) К преобразователю Ethernet--COM подключается реальное устройство на COM порт
              

   Драйвер com0com может создавать порты двух видов - нуль-модемные пары вида CNCA0--CNCB0 или пары вида COM3--COM4. Вид порта задается флажком "use Port class" в утилите setupg. Порты первого вида отличаются именами от стандартных имен типа COM3, поэтому их нельзя использовать во многих программах, ориентированных на эти имена (включая CRW-DAQ). Зато их можно использовать в программе com2tcp для проброски портов в сеть TCP/IP. Можно создать смешанную пару вида COM3--CNCB0, используя один конец (COM3) для программы, а другой (CNCB0) - для проброски порта в сеть, чтобы четко различать назначение портов.
   
   Виртуальные порты могут использоваться большим числом способов, которые можно комбинировать. Например, вместо преобразователя Ethernet--COM можно использовать другой компьютер, на котором работает другой экземпляр com2tcp для подключения к реальному COM-порту. Все это делает пакет com0com весьма гибким и полезным инструментом. Относительным недостатком com0com можно считать сложность его начального освоения, т.к. виртуальные порты имеют множество настроек.
   
   Работа по интеграции com0com в пакет CRW-DAQ будет закончена в следующих релизах. Собственно, сам по себе пакет com0com уже готов к работе, но требуется еще автоматизировать запуск и завершение процессов com2tcp для проброски портов.

8. В консольные утилиты Crw32.Utils.LM9 на закладке DAQ добавлена кнопка com0com Control для вызова команды com0com.lm9, которая позволяет инсталлировать, настраивать и управлять работой пакета com0com. Там содержится практически всё, что надо для работы, включая справочную информацию.

GrantAccessDim
TextLineCount
ExtractTextLine
HasFlags
@list tasks
spvoice
task_ref_min
task_ref_max
gettagcolor
settagcolor
gettagparam
settagparam
gettagtimer
settagtimer
Painter(v).GuiLib.SimpleBar
LinkedTagColor()
LinkedTagParam()
LinkedTagTimer()
DEMO_SMITEST
SmiuiRtl

1. Главными достижениями данного выпуска являются: добавление утилиты spvoice; обновление Painter(v) и GuiLib; добавление графического элемента Painter(v).GuiLib.SimpleBar; появление у тегов атрибутов (color,param,timer); добавление 2 констант и 7 функций DaqPascal; начало разработки библиотеки SmiuiRtl для создания GUI на основе технологии конечных автоматов SMI; правка и обновление стандартных библиотек DaqPascal.

2. Данный выпуск посвящен преимущественно исправлению, обновлению и доработке стандартных библиотек DaqPascal, а также продолжению работ по конечным автоматам SMI.

3. Исправлена ошибка в диалоге "Вставить из шаблона...", которая заключалась в неверных размерах полей группы "Параметры" при изменении размеров окна. Теперь размеры полей корректируются автоматически.

4. Исправлена ошибка в DIM_GuiClickInit, приводившая (в старых прикладных программах) к отказу в доступе при вызове функции GrantAccessDim.

5. В DaqPascal добавлена функция HasFlags(i,m), которая облегчают обработку операций с битовыми флагами, например:

       if HasFlags(mode,3) then writeln('Режим mode имеет 0 или 1 бит');
       
       if HasFlags(mode,mask) then ...
       -- эквивалентно
       if (iAnd(mode,mask)<>0) then ...
              

   Вызов HasFlags(mode,mask) эквивалентен вызову (iAnd(mode,mask)<>0), но выглядит намного понятнее и работает немного быстрее. Рекомендуется использовать эту функцию в новых разработках.

6. В стандартной библиотеке во многих модулях задействована новая функция HasFlags.

7. В DaqPascal добавлены системные константы TASK_REF_MIN, TASK_REF_MAX, которые задают допустимый диапазон номеров задач (tid) в функциях типа task_run, что позволяет корректно организовывать циклы по всем задачам. Например:

       for tid:=TASK_REF_MIN to TASK_REF_MAX do
       if (task_ref(tid)<>0) then writeln('TASK ',tid,' has PID ',task_pid(tid));
              

8. В стандартную библиотеку добавлены функции TextLineCount, ExtractTextLine, которые облегчают обработку небольших текстов, состоящих из строк, например:

       buff:='Line1'+CRLF+'Line2'+CRLF;
       for i:=0 to TextLineCount(buff,CRLF)-1 do begin
        writeln('Line ',i,' = ',ExtractTextLine(i,buff,CRLF));
       end;
              

9. Обновлен редактор мнемосхем Origami. Обновление предоставил А.Жирунов.

10. В Главной Консоли добавлена команда @list tasks для просмотра списка задач (task), запущенных с помощью функций task_run.
    Например, это может выглядеть так:

        @list tasks
        Task  PID    Status   Priority  CmdLine
        1     2792   Stopped  Normal    C:\Crw32exe\Resource\SmiSite\smi\bin\SMISM.EXE DEMO C:\DAQ32\DEMO_SMITEST_GUI\CONFIG\run_con.sobj -dns localhost -d 9 -t
        2     1632   Running  Normal    C:\CRW32EXE\RESOURCE\DAQSITE\SMISERVER\SMIPROXY.EXE -obj DEMO::EVT_BUILDER -set READY/NUMBER_T(I)=1/NUMBER_P(I)=1 -dns localhost
        3     5492   Running  Normal    C:\CRW32EXE\RESOURCE\DAQSITE\SMISERVER\SMIPROXY.EXE -obj DEMO::LOGGER -set NOT_LOGGING -dns localhost
        4     5644   Running  Normal    C:\CRW32EXE\RESOURCE\DAQSITE\CRONSERVER\CRONGRD.EXE
        5     540    Running  Normal    C:\CRW32EXE\RESOURCE\DAQSITE\SPEAKSERVER\SPEAKSRV.EXE
        Task(s) found: 5
               

    Команда полезна для отладочных целей, т.к. в ней видно все запущенные DAQ-системой процессы.

11. В набор консольных утилит (UnixUtils) добавлена команда spvoice для речевого синтеза с помощью "движка" (программного интерфейса) SAPI5. Небольшая справка. Для реализации TTS (text to speech, перевод текста в речь) используются программные интерфейсы SAPI (Speech API) разных версий. Во времена Windows-2000/Xp использовался синтезатор речи версии SAPI4, на нем и был сделан речевой сервер &SpeakSrv, встроенный в CRW-DAQ. В Windows-7/8/10 появился синтезатор SAPI5, программно несовместимый с SAPI4. Хотя библиотеки несовместимы, они могут сосуществовать вместе и параллельно работать на одном компьютере. В ОС Windows, начиная с версии 7 и выше - по умолчанию установлена голосовая ситема SAPI5. Голосовые системы SAPI4 и SAPI5 не замечают друг друга и могут работать на одном компьютере. Однако программа должна выбирать, какой движок использовать, т.к. они имеют разный программный интерфейс. Как было сказано, речевой сервер &SpeakSrv использует SAPI4 и не умеет использовать SAPI5. Возможно, со временем &SpeakSrv тоже научится использовать SAPI5, но пока этого нет. Новая команда spvoice использует SAPI5 и дает альтернативный путь для речевой генерации. Это полезно, т.к. SAPI5 дает более высокое качество звука при генерации речи из текста. В настоящее время SAPI5 можно использовать через вызов утилиты spvoice.
    Например:

        В окне консоли cmd:
        
        unix spvoice --help                                       - для получения справки
        unix spvoice "Hello world." "I feel good."                - речевое ссообщение с параметрами по умолчанию
        unix spvoice --rate 2 --volume 80 "I can speak English."  - речевое сообщение с явным заданием параметров
        
        В окне Главной Консоли Crw:
        
        @run /hide spvoice --rate -2 --volume 100 --voice 1 "Привет, мир." "Я могу говорить на Русском."
        
        Параметры можно задавать также через XML теги TTS, например для выбора голоса можно задать:
        
        @run /hide spvoice "<voice required='language=419;gender=female;age=adult'/>Привет, друг мой."
        
        Здесь код языка language=409/419=English/Russian; пол gender=male/female; возраст age=adult/teen/child.
        
        А в следующем примере задается высота тона звука (тембр голоса) pith в диапазоне -10..10:
        
        @run /hide spvoice "<pitch absmiddle='5'/>Привет, друг мой."
               

    Более подробно про теги TTS можно узнать тут.
    
    Для использования речевого синтезатора из программ DaqPascal достаточно послать команду в Главную Консоль, например:

        DevPostCmdLocal('@SysEval @silent @run /hide spvoice "Внимание, превышение уровня."');
               

12. В DaqPascal добавлены функции GetTagColor(tag), SetTagColor(tag,color), GetTagParam(tag), SetTagParam(tag,param), GetTagTimer(tag), SetTagTimer(tag,timer), которые работают с пользовательскими атрибутами тега. Атрибуты тега (color,param,timer) - это пользовательские данные, которые могут применяться для хранения дополнительных локальных параметров, ассоциированных (связанных) с тегом. Доступ к атрибутам не зависит от типа данных тега. Атрибуты могут служить для взаимодействия с графической системой Painter. Сценарий Painter может обращаться к атрибутам присоединенного к сенсору тега через функции LinkedTagColor(), LinkedTagParam(), LinkedTagTimer(), что позволяет передавать в графический сценарий пользовательские данные, в дополнение к значению данных тега. Например, прикладная программа может менять цвет фона числового поля за счет вызова SetTagColor в прикладной программе и вызова LinkedTagColor() в сценарии рисования тега.

13. В стандартную библиотеку общепринятых графических элементов (GuiLib) добавлен элемент SimpleBar. Он отображает простой (simple) прямоугольник (bar) заданного цвета (glBarColor) и служит для задания цветного фона для рисования на нем текста или других графических элементов.

14. Обновлена конфигурация DEMO_SMITEST, где задание цвета сенсоров для состояний логических объектов Конечного Автомата (FSM) сделано с помощью новых функций Get/SetTagColor. Этот способ проще, понятнее и быстрее метода посыылки сообщений через WinDraw, который использовался раньше. Для извлечения цвета (c) в сценарии Painter используется примерно такой код:

                (c=LinkedTagColor())+(c=eq(c,0)*clSilver+ne(c,0)*c)
               

    Эта конструкция не только извлекает цвет LinkedTagColor(), но и задает цвет по умолчанию (clSilver), если функция LinkedTagColor() вернула ноль (мы ведь не хотим увидеть черный сенсор). Ноль при вызове LinkedTagColor() может возникнуть, например, в начале работы, пока прикладная программа еще не выполнила инициализацию. С учетом использования SimpleBar вызов выглядит так:

        Painter(v) = (glBarColor=LinkedTagColor())+(glBarColor=eq(glBarColor,0)*clSilver+ne(glBarColor,0)*glBarColor)
        Painter(v) = [Painter(v).GuiLib.SimpleBar]
        Painter(v) = [Painter(v).GuiLib.SimpleBorder]
               

15. Начато создание стандартной библиотеки SmiuiRtl, которая будет использоваться для создания прикладных программ (GUI), основанных на Конечных Автоматах (SMI). Поскольку эта библиотека довольно большая и используется не всегда, то она не включается в StdLibrary автоматически (неявно), а должна включаться включаться явно, как описано в документации. Библиотека пока в стадии разработки.

60 лет от начала
Космической Эры.
КОСМОС НАШ!

edit('@set ...')
Warning
YesNo
YesNoCancel
Information
Error
FileOpenDialog
mr_OK
mr_CANCEL
mr_YES
mr_NO
EditReset
EditStateReady
EditStateDone
EditStateBusy
EditStateError
EditGetTypes
EditGetRequest
EditGetRequestType
EditGetRequestName
EditGetLastInputLn
EditGetUID
EditGetWellKnownDevices
EditGetAnswer
EditGetCommand
EditGetConfirm
EditGetSetting
EditGetAnswerCount
EditGetCommandCount
EditGetConfirmCount
EditGetSettingCount
EditGetResultName
EditGetResultCode
EditTestResultName
EditTestResultCode
EditGetMenuListSelectedIndex
EditGetMenuListSelectedCommand
EditGetMenuListSelectedConfirm
LooksLikeCommand
EditAddLine
EditAddText
EditAddOpening
EditAddInputLn
EditAddCommand
EditAddConfirm
EditAddSetting
EditAddClosing
EditStartConfirmCommand
EditMenuDefaultHandler
DaqCreator
@Tooltip
@OpenConsole
@BrowseHelp
DEMO_EDIT
DEMO_DOZA
DEMO_SMITEST
DEMO_LM9
DEMO_MDBS
DEMO_MAYAK
DEMO_GENDC
DEMO_ZUPDC
DEMO_UNIHEAT

1. Главными достижениями данного выпуска являются: доработка функции edit.

2. Данный выпуск посвящен преимущественно обновлению и доработке функции edit, а также продолжению работ по конечным автоматам SMI.

3. Сделаны доработки в функции edit. Теперь задавать положение диалога (@set Form.Left ..., @set Form.Top ...) можно при вызове любого диалога edit. Если точнее, изменения коснулись диалогов Warning, YesNo, YesNoCancel, Information, Error, FileOpenDialog.

4. Обновлена демо конфигурация DEMO_EDIT для иллюстрации возможностей функции edit.

5. Новый параметр конфигурации Crw32.ini [System] UseEditSettings (по умолчанию 1) позволяет отключить (при значении 0) работу настройки параметров Edit('@set ...'). Этот параметр сделан для обратной ссовместимости, чтобы можно было вернуть старое поведение диалогов Edit(..) (например, при возникновении каких-либо проблем).

6. В стандартную библиотеку добавлены константы mr_OK, mr_CANCEL, ... (от слова modal result = "модальный результат"), которые можно использовать для анализа результатов диалогов edit.

7. В стандартную библиотеку добавлены функции LooksLikeCommand(line), DevSendCmdLocal(cmd), DevPostCmdLocal(cmd), которые предназначены для работы с консольными командами.
   Сравните:

              // Если строка s выглядит как команда, послать её в свою консоль:
              
              Старый стиль:  if (StrFetch(s,1)='@') then DevSendCmd(devMySelf,s);
              
              Новый стиль:   if LooksLikeCommand(s) then DevSendCmdLocal(s);
              

   Новый стиль ввыглядит более понятным и лаконичным. Рекомендуется его использовать в новых проектах и (при случае) заменять в старых.

8. В стандартную библиотеку добавлены функции редактирования EditReset, EditStateReady, EditStateDone, EditStateBusy, EditStateError, EditGetTypes, EditGetRequest, EditGetRequestType, EditGetRequestName, EditGetLastInputLn, EditGetUID(id), EditGetWellKnownDevices(list), EditGetAnswer(n), EditGetCommand(n), EditGetConfirm(n), EditGetSetting(n), EditGetAnswerCount, EditGetCommandCount, EditGetConfirmCount, EditGetSettingCount, EditGetResultName, EditGetResultCode, EditTestResultName(name), EditTestResultCode(code), EditGetMenuListSelectedIndex, EditGetMenuListSelectedCommand, EditGetMenuListSelectedConfirm, EditAddLine(line), EditAddText(lines,prefix,filter), EditAddOpening(line), EditAddInputLn(line), EditAddCommand(line), EditAddConfirm(line), EditAddSetting(line), EditAddClosing(typ,id,par), EditStartConfirmCommand(Msg,Id,Cmd,Params), EditMenuDefaultHandler(id), которые призваны облегчить создание и анализ результатов работы диалогов edit.
   
   В документации есть хороший пример создания меню (CLOSE) с обработкой подтверждений и команд для каждого пункта меню, а также с заданием настроек (шрифта и позиции окна на экране). Этот пример иллюстрирует использование перечисленных выше функций.
   А вот пример для понимания общей структуры обработки редактирования:
   

                procedure PollApplication;
                begin
                 ...
                 {
                 Edit handling...
                 }
                 if EditStateDone then begin
                  {
                  Warning dialog completion.
                  }
                  if EditTestResultName('Warning') then begin
                   if EditTestResultCode(mr_OK) then writeln('Warning: OK button pressed.');
                   if EditTestResultCode(mr_CANCEL) then writeln('Warning: Cancel pressed.');
                   EditReset;
                  end;
                  {
                  YesNo dialog completion.
                  }
                  if EditTestResultName('YesNo') then begin
                   if EditTestResultCode(mr_YES) then writeln('YesNo: YES button pressed.');
                   if EditTestResultCode(mr_NO) then writeln('YesNo: NO button pressed.');
                   EditReset;
                  end;
                  ... etc ...
                 end;
                 if EditStateDone then begin
                  Problem('Unhandled Edit detected!');
                  EditReset;
                 end else
                 if EditStateError then begin
                  Problem('Edit error detected!');
                  EditReset;
                 end;
                 ...
                end;
              

   Из приведенных примеров видно, что новые функции, по сравнению с прямым использованием функции edit, значительно повышают ясность кода и улучшают его структуру. Поэтому рекомендуется использовать эти функции в новых проектах, а также постепенно заменять старый код в существующих проектах.

9. Модифицирован шаблон template.pas, в который добавлен код нового стиля обработки редактирования (edit).

10. Обновлена утилита DaqCreator. В шаблоне основной программы используется новая библиотека функций при создании диалогов (Tools, Close).

11. В стандартный обработчик консоли DAQ-устройств добавлены команды: @Tooltip (всплывающее окно сообщения), @OpenConsole (открыть окно консоли устройства), @BrowseHelp (открыть HTM справку из [DAQ] HelpFile), которые теперь доступны всем программным устройствам, сделанным на основе шаблона в стандартной библиотеке. Достоинство состоит в том, что консольные команды можно посылать в сообщениях или задавать в командах меню. При этом устройства могут "перехватывать" команды, обрабатывая их по-своему.

12. В шаблоны редактирования в текстовом редакторе в разделе Daq_Pas добавлены шаблоны меню (Close,Tools), которые рекомендуется использовать как образец для создания меню в новых проектах. Также добавлены шаблоны для нестандартной обработки меню и для обработки CheckBoxList.

13. Обновлены конфигурации DEMO_DOZA, DEMO_LM9, DEMO_MDBS, DEMO_SMITEST, DEMO_LINCORR, DEMO_MAYAK, DEMO_GENDC, DEMO_ZUPDC, DEMO_UNIHEAT, где создание и обработка меню сделаны с помощью новых функций EditXXX.

14. В Главной Консоле добавлена команда @list windows для чтения списка окон.
    Например:

                @list windows                        - список всех окон
                @list windows 5201                   - список окон процесса 5201
                @list windows 0 #32770               - список окон класса #32770
                @list windows 0 "" "Диспетчер задач" - список окон с заголовком "Диспетчер задач"
               

    Команда списка окон - полезный вспомогательный инструмент для разработчиков.

DieselPascal
edit('@set ...')
MenuList
SelectionList
TextEdit
StringGridEdit
DEMO_EDIT
DEMO_DOZA
DEMO_MAYAK
DEMO_SMITEST
StartEditTagEx
StartEditTagStrEx
SetFormUnderSensorLeftBottom

1. Главными достижениями данного выпуска являются: обновление библиотек и версии DieselPascal; добавление функционала в функции edit.

2. Данный выпуск посвящен преимущественно обновлению и доработке DieselPascal и его библиотек, а также продолжению работ по конечным автоматам SMI. Для этого (как ни странно) потребовалось доработать функцию edit, чтобы можно было строить интерфейсы в стиле конечных автоматов.

3. Обновлен движок DieselPascal от версии 2.0.11 до версии 2.0.14. В этом выпуске исправлены некоторые замеченные ошибки, добавлены некоторые свойства визуальных объектов (Alignment,VerticalAlignment,BorderStyle). Добавлены методы в интерфейсы TTreeView, TPopupMenu и ряда других классов.

4. Существенно доработана функция edit. В ней добавлена возможность менять вид (шрифты) и положение/размер окна с помощью параметров настройки (settings), которые задаются вызовом edit('@set ...').
   Кроме того, заведено два пользовательских буфера:
   • cmd (command) для пользовательских команд: запись через edit('>...'), чтение через edit('?cmd n')
   • con (confirmation) для пользовательских подтверждений: запись через edit('!...'), чтение через edit('?con n')
   Эти буферы задуманы для облегчения организации диалогов меню, чтобы было где хранить пользовательские команды и строки для диалогов подтверждения, которые нужно выполнить в конце редактирования.
   Например:

      {
      Инициировать диалог - меню выбора - по нажатию сенсора...
      }
      if IsSameText(ClickSensor,'MENULIST') then begin
       bNul(Voice(sndClick));
       if EditState=0 then begin
        writeln('Demo MenuList.');
        if pos('?',edit('(Выбор термопары')
                  +edit(' Задайте термопару')
                  +edit(' Термопара 1') + edit('>@termocouple 1')  // Здесь задается текст
                  +edit(' Термопара 2') + edit('>@termocouple 2')  // пунктов меню, а также
                  +edit(' Термопара 3') + edit('>@termocouple 3')  // пользовательские команды
                  +edit('@set Panel.Font   Name:PT_Mono\Size:12\Color:Maroon\Style:[Bold]')
                  +edit('@set ListBox.Font Name:PT_Mono\Size:24\Color:Navy\Style:[Bold]')
                  +edit('@set Form.Left '+ExtractWord(1,ClickParams('Bounds'))+' relative '+ClickParams('Window')+' PaintBox')
                  +edit('@set Form.Top  '+ExtractWord(4,ClickParams('Bounds'))+' relative '+ClickParams('Window')+' PaintBox')
                  +edit('@set Form.Width 300')+edit('@set Form.Height 230')
                  //+edit('@set Form.Width  40 relative Desktop')+edit('@set Form.Height 50 relative Screen')
                  //+edit('@set Form.Width  50 relative '+ClickParams('Window'))+edit('@set Form.Height 50 relative '+ClickParams('Window'))
                  +edit(')MenuList MENU 2'))>0
        then writeln('Error on edit MenuList!');
       end else writeln('Cannot edit right now!');
      end;
      ...
      ...
      {редактирование завершено?}
      if editstate=1 then begin                                 // Если редактирование завершено
       if IsSameText(edit('?ans 0'),'MENU_TC=1')                // Если статус результата = 1 = OK
       then n:=val(edit('?ans 1')) else n:=-1;                  // Узнать номер n выбранного пункта
       s:=Trim(edit('?cmd '+Str(n)));                           // Извлечь пользовательскую команду s
       if Pos('@',s)=1 then b:=devpostmsg(devname+' '+s+CRLF);  // Если она есть, послать её в консоль
       s:=edit('');                                             // Сброс редактора в исходное состояние
      end;
              

   Новые параметры значительно расширяют возможности функции edit и делают её удобнее. Теперь можно менять тип, размер и цвет шрифтов списка, а также делать "привязку" окна диалога к нажатому сенсору, что на практике очень удобно.
   Примеры задания параметров:

               edit('@set Panel.Font Name:PT_Mono\Size:12\Color:Red') - задание шрифта
               edit('@set Form.Left 200')                             - указание абсолютной координаты на экране
               edit('@set Form.Width 80 relative Screen')             - ширина окна 80% относительно ширины экрана
               edit('@set Form.Top 20 relative Desktop')              - координата относительно Рабочего Стола (зависит от настроек Windows)
               edit('@set Form.Left 30 relative DemoEdit PaintBox')   - координата относительно окна с заголовком DemoEdit, элемента PaintBox
               edit('@set Form.Width 40 relative *::FormCrw32')       - ширина 40% относительно ширины главного окна пакета
               edit('@set Form.Height 50 relative TFormCrw32::*')     - высота 50% относительно высоты главного окна пакета
              

   Подробное описание параметров есть в документации по функции edit.

5. В настоящее время параметры настройки реализованы для диалогов редактирования:
   MenuList, SelectionList, CheckBoxList, TextEdit, StringGridEdit.
   Для остальных типов диалогов редактирования параметры игнорируются.

6. Обновлена демо конфигурация DEMO_EDIT для иллюстрации возможностей функции edit.

7. Добавлен параметр [DAQ] EditTagFont, в котором указывается шрифт для редактирования тегов. Этот шрифт при старте считывается в переменную StdEditTagFont, которая используется для задания шрифта при редактировании тегов. Значение по умолчанию определено в включаемом (обычно) стандартном файле Default/DAQ.cfg. При необходимости шрифт можно заменить, задав новое значение переменной StdEditTagFont. Восстановить стандартное значение фонта редактирования тегов можно вызовом StdEditTagFont:=ReadIni('[DAQ] EditTagFont');.

8. Добавлены функции StartEditTagStrEx, StartEditTagEx, а также обновлены функции StartEditTagStr, StartEditTag, которые теперь дают возможность менять шрифт редактирования тегов (в переменной StdEditTagFont). Расширенные (Ex = extended) версии функций также позволяют менять шрифт, размеры и координаты окна.
   Например:

              // Обычное редактирование
              StartEditTag(tag,'Введите значение');
              StartEditTagEx(tag,'Введите значение',''); // То же самое
              
              // Редактирование с явным заданием шрифта через параметр
              StartEditTagEx(tag,'Введите значение','@set StringGrid.Font Name:PT_Mono\Size:14\Color:Black\Style:[Bold]');
      
              // Редактирование с явным заданием шрифта и координат через параметр
              StartEditTagEx(tag,'Введите значение',
               '@set StringGrid.Font Name:PT_Mono\Size:14\Color:Black\Style:[Bold]'+LineEnding+
               '@set Form.Left 200 relative DemoEdit PaintBox'+LineEnding+
               '@set Form.Top 10 relative DemoEdit PaintBox');
              
              // Редактирование с заданием шрифта через переменную и восстановлением стандартного значения
              StdEditTagFont:='Name:PT_Mono\Size:14\Color:Red\Style:[Bold]';
              StartEditTag(tag,'Введите значение');
              StdEditTagFont:=ReadIni('[DAQ] EditTagFont');
              

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

9. Добавлена функция SetFormUnderSensorLeftBottom, которая вычисляет такие параметры вызова StartEditTagEx, чтобы окно редактирования поместилось прямо под нажатым сенсором, что удобно для пользователя. Аргумент функции берется из вызова ClickParams(''), откуда извлекается имя окна и координаты нажатого сенсора.
   Например:

              // Редактирование с указанием координат окна под сенсором и шрифта
              StartEditTagEx(tag,'Введите значение',SetFormUnderSensorLeftBottom(ClickParams(''))
                                                 +'@set StringGrid.Font Name:PT_Mono\Size:14\Color:Black\Style:[Bold]');
              

   Эта функция является вспомогательной и используется для облегчения работы с функциями редактирования.

10. По сложившейся практике имя устройства (DevName) очень часто совпадает с именем связанного с ним окна мнемосхемы, кроме первого символа (амперсанда &). В этом случае имя связанного окна можно получить вызовом Copy(DevName,2). Это позволяет делать "привязку" различных диалогов к координатам окна, например:

               
               if EditState=0 then begin
                if Pos('?',Edit('(Команда "Инструменты"... ')
                          +Edit(' Что выбираете:')
                          +Edit(' '+MenuToolsItem(0))
                          +Edit(' '+MenuToolsItem(1))
                          +Edit(' '+MenuToolsItem(2))
                          +Edit('@set ListBox.Font Size:14\Style:[Bold]')
                          +Edit('@set Form.Left 800 relative '+Copy(DevName,2)+' PaintBox')
                          +Edit('@set Form.Top  55  relative '+Copy(DevName,2)+' PaintBox')
                          +Edit(')MenuList MENU_'+NameTag(DOZA.MAIN.CMD.TOOLS.tag)))>0
                then Warning('Error initializing MenuList!');
               end else Warning('Cannot edit right now!');
               

    Такой метод хорошо подходит для главной мнемосхемы, а также для окон настройки драйверов, где обычно имя окна мнемосхемы совпадает (кроме амперсанда) с именем устройства.

11. Обновлены конфигурации DEMO_DOZA, DEMO_MAYAK, DEMO_SMITEST, DEMO_UNIHEAT и библиотека UniHeat, где редактирование тегов сделано с помощью функций StartEditTagEx и SetFormUnderSensorLeftBottom. Теперь окно редактора тегов появляется под сенсором (раньше оно появлялось над ним). Это довольно удобно, т.к. видно, какой тег редактируется и его текущее значение. Эти конфигурации являются примером использования новых функций редактирования.

12. В функции ClickParams добавлены параметры:

               ClickParams('WindowRect')    - абсолютные экранные координаты окна (Left,Top,Right,Bottom)
               ClickParams('PaintBoxRect')  - абсолютные экранные координаты PaintBox (Left,Top,Right,Bottom)
               

    Эти параметры помогут вычислять координаты для позиционирования диалогов на экране относительно окна или относительно основного поля мнемосхемы (PaintBox).

13. Обновлена утилита DaqCreator.LM9. В шаблоне основной программы сделано изменение шрифта и позиционирование диалогов (Tools, Close).

14. Исправлена небольшая ошибка в формате вывода списка подключений мнемосхемы (по правой кнопке мыши).

DieselPascal
dpTask.pas
dpColors.pas
TestPing.lm9
Origami
SmiGenGui.lm9
DEMO_SMITEST
CrcConfigurator.lm9

1. Главными достижениями данного выпуска являются: утилита SmiGenGui.lm9 для наблюдения и отладки SMI; обновление библиотек и версии DieselPascal; добавление библиотеки dpTask и dpColors.

2. Данный выпуск посвящен преимущественно обновлению и доработке DieselPascal и его библиотек, а также продолжению работ по конечным автоматам SMI.

3. Обновлен движок DieselPascal от версии 2.0.6 до версии 2.0.11. Обновление связано с выходом новой версии Free Pascal 3.2.0 и Lazarus 2.10. Кроме того, в новой версии улучшена поддержка работы с кодировками (OEM, ANSI, UTF8...). Есть пример использования кодировок.

4. Добавлен модуль DieselPascal для работы с процессами dpTask.pas. Он позволяет работать с процессами через функции API, аналогичные DaqPascal.

5. Добавлен пример, иллюстрирующий использование модуля dpTask для работы с процессами - TestPing.lm9. Он запускает программу ping для проверки сетевой связи и направляет консольный вывод в окно редактора.

6. Обновлен модуль DieselPascal - dpSysUtils, добавлен ряд полезных функций.

7. Разработана первая версия утилиты SmiGenGui.lm9 (название от SMI Generic QUI) для отображения и отладки конечных автоматов SMI, созданная как альтернатива не очень удобной штатной утилиты Tcl/Tk SMI Generic GUI, входящей в SMI. Утилита написана на языке DieselPascal и служит очередным шагом к реализации в пакете CRW-DAQ поддержки конечных автоматов на основе технологии SMI. Она также может служить прототипом для других графических утилит, работающих с интерфейсом SMI.

8. Обновлена демо конфигурация DEMO_SMITEST для иллюстрации работы утилиты SmiGenGui.LM9.

9. Добавлен модуль DieselPascal для работы с именованными цветами dpColors.pas. Он позволяет работать с именами и кодами цветов, аналогично вызову ParamStr('ColorName ..').

10. Обновлена утилита CrcConfigurator.LM9. В ней удален внутренний модуль dpColors, т.к. теперь он доступен в общей библиотеке.

11. Обновлен редактор мнемосхем Origami. Обновление предоставил А.Жирунов.

12. И поздравляю всех с Днем Защитника Отечества.

SMI
&SmiSrv
DEMO_SMITEST
DEMO_OSM
DaqCreator
CrcConfigurator
Origami

1. Главными достижениями данного выпуска являются: обновление и документация сервера &SmiSrv; редакторы мнемосхем CrcConfigurator и Origami; обновление библиотеки SMI++.

2. Данный выпуск посвящен преимущественно обновлению и доработке SMI.

3. Обновлена библиотека SMI++ от версии v51r3 до версии v56r1, актуальной на данный момент. Библиотека собрана самостоятельно в Visual Studio 2005.

4. Обновлены интерфейсные файлы smirtl.pas, smiuirtl.pas.

5. Обновлены пакеты office, netweb, mmedia, systools, develop.

6. Обновлена демо конфигурация DEMO_OSM драйвера шагового двигателя. Исправлены ошибки, добавлены регистры для редактирования. Обновление предоставил Н.Гурин.

7. Обновлена утилита DaqCreator.LM9. Добавлена конфигурация ModbusProxy. Обновление предоставил Н.Гурин.

8. Создана первая пробная версия утилиты CrcConfigurator.LM9. Это генератор и редактор мнемосхем на основе DieselPascal. Утилиту предоставил Н.Гурин по шаблону, созданному А.Курякиным.

9. Создана первая пробная версия утилиты Origami. Это генератор и редактор мнемосхем на основе HTML и JavaScript. Утилиту предоставил А.Жирунов, который и предложил её идею.

10. Утилиты CrcConfigurator, Origami внесены в консольные утилиты Crw32.Utils.LM9.

11. Создан (точнее обновлен) и документирован сервер &SmiSrv. Это еще один шаг по интеграции SMI в пакет CRW-DAQ.
    В будущем еще предстоит сделать графический интерфейс (GUI) для работы с конечными автоматами SMI.

12. Обновлена демо конфигурация DEMO_SMITEST для иллюстрации работы сервера &SmiSrv.

DieselPascal
dpGuiResMain
dpGuiResTools
DEMO_LM9
DaqCreator
CfgConfigurator

Всех поздравляю
с наступающим
Новым Годом и Рождеством.

1. Главными достижениями данного выпуска являются: обновление DieselPascal; добавление библиотечных моделей данных dpGuiResMain, dpGuiResTools.

2. Данный выпуск посвящен преимущественно обновлению и доработке DieselPascal, а также переработке утилит *.LM9, работающих с его помощью.

3. Был обновлен Diesel Pascal от версии 2.0.4 до версии 2.0.6.
   
   Обновление было сделано по нашей просьбе и связано со следующей проблемой.
   Внешние модули (External) эффективно решили проблему хранения библиотечного программного кода, общего для всех программ *.LM9. Однако в программах, помимо кода, присутствуют громоздкие списки изображений (ImageList), которые для большинства утилит повторяются и занимают большую часть файлов *.LM9. Для выноса ImageList во внешний модуль можно использовать модули данных (DataModule), и это работало в RunTime, однако это не срабатывало в DesignTime, т.к. на этапе разработки (design time) автоматической загрузки модулей не происхоло и изображения ImageList были недоступны для Дизайнера, если они находялись во внешнем модуле. Визуально это проявлялось в том, что при загрузке в Дизайнере вместо картинок на кнопках BitBtn и других элементах наблюдалось пустое место - картинки не грузились, хотя на этапе выполнения (run time) картинки могли изображаться нормально.
   Для решения описанной проблемы необходимо было сделать механизм загрузки внешних модулей данных на этапе разработки, чтобы сделать их доступными для Дизайнера.
   Для этого было сделано следующее:
   
   • Вкладка Опции\Опции Проекта\Дополнительно переименована в Опции\Опции Проекта\Внешние модули.
   • Кроме поля Путь к папке с внешними модулями появился список Автоматически создаваемые TDataModule (только в DesignTime). В этот список помещаются имена модулей данных, которые надо автоматически загружать в DesignTime, чтобы содержащиеся в них объекты стали доступными для Дизайнера.
   • При нажатии кнопки Добавить сканируется папка с внешними модулями (External) и выбираются модули данных (TDataModule). Из них предлагается выбрать добавляемый в список модуль.
   • Дизайнер доработан так, что теперь помещенные в список модули данных автоматически загружаются на этапе разработки DesignTime и находящиеся в модулях ресурсы доступны для Дизайнера.
   
   Надо заметить, что проблема была решена частично. Картинки из внешних модулей действительно загружаются нормально. Однако в кнопках (например, BitBtn) не происходит автоматического назначения картинки, если подключается Action с назначенной картинкой ImageList/ImageIndex. Картинка появляется только если явно указать ImageList/ImageIndex в самой кнопке. Это не страшно, хотя и неприятно, т.к. приводит к дублированию описаний картинок ImageList/ImageIndex в объектах Action и BitBtn. Тем не менее, это решает проблему хранения изображений во внешних модулях и поэтому рекомендуется к использованию.

4. Был создан модуль данных dpGuiResMain, в который помещены списки изображений ImageListMain16x16, ImageListMain32x32, содержащие большую (более 230) библиотеку изображений, используемых в пакете CRW-DAQ. Эта библиотека нужна практически в любой утилите *.LM9, чтобы обеспечить единство интерфейса пользователя - все утилиты выглядят похожими на основной пакет CRW-DAQ за счет одинаковых картинок, обозначающих команды и действия.
   
   Для использования библиотеки в каком-либо проекте надо
   • Задать расположение папки внешних модулей External в опциях проекта: Опции\Опции Проекта\Внешние модули. Обычно это ссылка на переменную окружения %DieselPascal_External%.
   • Включить модуль dpGuiResMain в список автозагрузки в опциях проекта: Опции\Опции Проекта\Внешние модули.
   • Включить модуль в список uses ... , dpGuiResMain;
   • В главном файле проекта вызвать процедуру InitGuiResMain; до создания главной формы. Это нужно сделать потому, что главная форма использует ресурсы модуля dpGuiResMain, которые к моменту создания формы уже должны быть загружены.
   • Для изображений вместо ссылки ImageListMain32x32 используется ссылка DataModuleGuiResMain.ImageListMain32x32.
   • Ссылка на изображение ImageList/ImageIndex должна явно прописываться в каждой кнопке BitBtn, даже если она уже прописана в присоединенной Action. Иначе картинка не будет доступна в DesignTime.

5. Был создан модуль данных dpGuiResTools, в который помещены списки изображений ImageListTools32x32, ImageListTools48x48, содержащие большую (более 80) библиотеку изображений, используемых в инструментах и программах Windows. Эта библиотека может быть полезной во многих утилитах *.LM9, чтобы обеспечить единство интерфейса пользователя - все утилиты выглядят похожими друг на друга за счет одинаковых картинок, обозначающих команды и действия.
   Модуль используется аналогично модулю dpGuiResMain.

6. Была переработана утилита Crw32.Utils.LM9 с использованием внешних библиотечных модулей dpGuiResMain, dpGuiResTools. Это позволило сократить размер утилиты почти в 30 раз - c 4 MB до 140 KB. При этом практически все изображения (кроме "иконки" основной программы и TrayIcon) хранятся в списках изображений во внешних библиотечных модулях.

7. Была переработана шаблонная утилита Template_Utility.LM9 с использованием внешних библиотечных модулей dpGuiResMain, dpGuiResTools. Это позволило сократить размер утилиты более чем в 100 раз - c 2.7 MB до 26 KB. При этом практически все изображения (кроме "иконки" основной программы и TrayIcon) хранятся в списках изображений во внешних библиотечных модулях.

8. Была переработана утилита DemoSinWaveControl.LM9 с использованием внешних библиотечных модулей dpGuiResMain, dpGuiResTools. Это позволило сократить размер утилиты почти в 80 раз - c 2.8 MB до 35 KB. При этом практически все изображения (кроме "иконки" основной программы и TrayIcon) хранятся в списках изображений во внешних библиотечных модулях.

9. Была переработана утилита DaqCreator.LM9 с использованием внешних библиотечных модулей dpGuiResMain, dpGuiResTools. Это позволило сократить размер утилиты более чем в 40 раз - c 2.8 MB до 65 KB. При этом практически все изображения (кроме "иконки" основной программы и TrayIcon) хранятся в списках изображений во внешних библиотечных модулях.

10. Была переработана утилита CfgConfigurator.LM9 с использованием внешних библиотечных модулей dpGuiResMain, dpGuiResTools. Это позволило сократить размер утилиты более чем в 10 раз - c 2.9 MB до 210 KB. При этом практически все изображения (кроме "иконки" основной программы и TrayIcon) хранятся в списках изображений во внешних библиотечных модулях.

11. Таким образом, все имеющиеся в наличии утилиты *.LM9 переработаны с использованием внешних библиотечных модулей dpGuiResMain, dpGuiResTools. Это позволило сократить размер утилит в большое (от 10 до 100) число раз, при этом имеющиеся и будущие утилиты, создаваемые из шаблонов, будут компактными и не перегруженными громоздкими картинками.

12. В целом можно сделать вывод о значительном шаге в развитии DieselPascal и его библиотек, который делает утилиты *.LM9 существенно более компактными и простыми.

@run
@reg -e
ADAM
Reject50
FastPoll
RangeCodes
Tab_Window
TagList
Colors
DAQ.CURVE_WINDOW_N
DAQ.TAB_WINDOW_N
rmin
rmax
imin
imax

1. Главными достижениями данного выпуска являются: исправление ошибки в @reg -e, @run; серьезные изменения в окнах таблиц Tab_Window; добавлены функции rmin, rmax, imin, imax; обновление драйвера ADAM, в котором исправлены ошибки и добавлены параметры Reject50, FastPoll и RangeCodes.

2. Данный выпуск посвящен преимущественно исправлению ранее найденных ошибок и мелким доработкам, в первую очередь в драйвере ADAM. Также серьезные изменения произошли в таблицах Tab_Window для отображения кривых и тегов.

3. Исправлена ошибка в определении имени EXE файла по расширению, которая в некоторых условиях выдавала неверный результат. Ошибка влияла на работу команд @reg -e и @run, из-за чего эти команды при некоторых условиях не срабатывали. Теперь они должны работать верно.

4. Исправлена ошибка в драйвере ADAM, из-за которой модуль 7033 выдавал ошибку при старте.

5. В драйвер ADAM добавлена поддержка параметров Reject50 и FastPoll.
   
   Параметр Reject50 применим ко всем модулям АЦП (7011, 7012, 7017, 7018, 7013, 7033), кроме некоторых исключений (7015, 7019).
   Параметр Reject50 включает фильтр, подавляющий помеху 50 Гц, что может существенно снизить уровень шума, особенно в милливольтовых диапазонах. Следует отметить, что в режиме FastPoll параметр Reject50 не работает.
   
   Параметр FastPoll применим модулям АЦП модификации F (7012F, 7017F).
   Параметр FastPoll включает режим быстрого (fast) опроса, частота которого зависит от типа модуля (100 Гц для 7012F, 60 Гц для 7017F). Напоминаем, что это общая частота опроса, которая делится между подключенными каналами. Кроме того, для ускорения опроса надо отключать Watchdog и оптимизировать настройку опроса устройств и потоков, что достигается установкой InquiryPriod, DevicePolling и вызовом setclockres(..). При правильном выборе параметров достигается частота опроса 7017F около 60 Гц. Необходимо также учитывать, что при включении режима быстрого опроса снижается эффективная разрядность (с 16 до 12 бит в модуле 7017F) и точность АЦП. Например, для 7012F точность составляет 0.05 % в обычном и 0.25 % в быстром режиме. Для 7017F точность составляет 0.1 % в обычном и 0.5 % в быстром режиме.

6. В драйвер ADAM добавлена поддержка параметра RangeCodes для задания списка значений диапазонов каналов.
   
   Параметр RangeCodes применим модулям АЦП, имеющим функцию задания диапазонов для отдельных каналов (7015, 7019).
   Обычно диапазон АЦП задается параметром RangeCode для всех каналов одновременно. При наличии функции поканального задания диапазонов, можно задавать диапазон для отдельных каналов. Диапазоны в этом случае задаются списком RangeCodes, а параметр RangeCode задает значения по умолчанию. Например:

               [DeviceList]
               ADAM7019 = device adam ADAM-7019
               [ADAM7019]
               ...
               RangeCode       = $08                                    ; код диапазона по умолчанию
               RangeCodes      = $00, $01, $02, $03, $04, $05, $08, $09 ; коды диапазонов для каждого канала
               ...
              

   Если параметр RangeCodes отсутствует или содержит неполный список каналов, то диапазоны каналов берутся из параметра RangeCode.

7. При открытии новых окон DAQ системы им теперь даются имена с указанием типа и номера окна:
   DAQ.CURVE_WINDOW_1, DAQ.CURVE_WINDOW_2, ... для окон кривых или
   DAQ.TAB_WINDOW_1, DAQ.TAB_WINDOW_2, ... для окон таблиц.
   Это должно облегчить поиск окон в списке окон. Раньше при открытии новых окон все они имели одинаковые имена, что затрудняло поиск нужного окна.

8. Полностью переработаны окна таблиц Tab_Window.
   
   
   • Таблицы переделаны с помощью StringGrid.
     
     
   • Сняты ограничения на размер таблицы. Теперь в таблице может быть много кривых и тегов. При большом числе кривых и тегов в окне появляется скроллер. Текущее ограничение на число кривых и тегов - 4К, на ширину поля - 127.
     
     
   • Расширена поддержка форматов:

                     [Windows]
                     DemoTab = Tab_Window
                     [DemoTab]
                     ...
                     Format = 11 4 f   ; fixed      123456.7890  фиксированный формат
                     Format = 11 4 g   ; general        1.235e5  генеральный (адаптивный)
                     Format = 11 4 e   ; exponent   +1.2345e+05  экспоненциальный (научный)
                     

   • Расширена поддержка фонтов:

                     [Windows]
                     DemoTab = Tab_Window
                     [DemoTab]
                     ...
                     Font = Name:PT_Mono\Color:Navy\Size:12\Style:[Bold]
                     

     То есть теперь фонты можно задавать так же как в мнемосхемах.
     
     
   • Добавлено отображение списка тегов (TagList = ...):

                     [Windows]
                     DemoTab = Tab_Window
                     [DemoTab]
                     ...
                     CurveList = alpha, beta, gamma ; Список кривых для отображения
                     TagList = POWER_ON, POLL_RATE  ; Список тегов  для отображения
                     TagList = ERRORS, ...          ; Список тегов  для отображения
                     

     То есть теперь теги тоже можно отображать в таблицах, как и кривые.
     
     
   • Добавлено задание цветов таблицы (Colors = ...):

                     [Windows]
                     DemoTab = Tab_Window
                     [DemoTab]
                     ...
                     Colors = Silver, White, Black  ; Фон имен серый, фон значений белый, текст черный
                     

     То есть теперь можно задавать цветовое оформление таблиц.
     
     
   • По правой кнопке вызывается меню с командами настройки параметров - фонта, формата и цветов.
   
   Новые возможности делают таблицы Tab_Window полезным инструментом, который можно использовать не только для отладки, но и для создания интерфейсов пользователя.

9. В команде DAQ\Открыть окно добавлены новые возможности окон таблиц Tab_Window. Теперь можно выбирать не только список кривых, но и список тегов для отображения. Это особенно удобно для отладки приложений.

10. Новые возможности окон таблиц Tab_Window проиллюстрированы на конфигурации DEMO_LM9. В файле demo_lm9_main_ctrl.cfg имеется пример описания окна Tab_Window:

                [Windows]
                DEMO_LM9.PARAM.TAB = Tab_Window
                [DEMO_LM9.PARAM.TAB]
                Font      = Name:PT_Mono\Color:Black\Size:14\Style:[Bold]
                Format    = 7 2 f
                Colors    = Default, White, Navy
                TagList   = SinWaveGenerate
                CurveList = SinWaveAmplitude, SinWaveFrequency, SinWavePhase    
                CurveList = SinWaveNoise, SinWaveValue, CosWaveValue    
                []
               

    В файле demo_lm9_main_init.cfg содержится пример инициализации окна:

               [&CronSrv.StartupScript]
                ...
                @cron.tab DEMO_LM9.PARAM.TAB.HOME 0 0 0
                @cron.job DEMO_LM9.PARAM.TAB.HOME @WinShow DEMO_LM9.PARAM.TAB
                @cron.job DEMO_LM9.PARAM.TAB.HOME @WinDraw DEMO_LM9.PARAM.TAB|Left=660|Top=0
                @cron.job DEMO_LM9.PARAM.TAB.HOME @WinDraw DEMO_LM9.PARAM.TAB|Options=-Min,-Max,+Close,-Top,-Left
                @cron.tab DEMO_LM9.PARAM.TAB.SHOW 0 0 0
                @cron.job DEMO_LM9.PARAM.TAB.SHOW @WinShow DEMO_LM9.PARAM.TAB
                @cron.tab DEMO_LM9.PARAM.TAB.HIDE 0 0 0
                @cron.job DEMO_LM9.PARAM.TAB.HIDE @WinHide DEMO_LM9.PARAM.TAB
                @cron.tab DEMO_LM9.PARAM.TAB.SELECT 0 0 0
                @cron.job DEMO_LM9.PARAM.TAB.SELECT @WinSelect DEMO_LM9.PARAM.TAB
                ...
                @cron.job DEMO_LM9.MAIN.CTRL.HOME @cron.run DEMO_LM9.PARAM.TAB.HOME
               

    Обратите внимание - в описании @WinDraw|Options присутствуют только некоторые параметры, там не должно быть других параметров (например, StatusBar, Width, Height), иначе окно будет выглядеть неправильно.

11. В DaqPascal добавлены функции rmin (синоним min), rmax (синоним max), imin (целочисленный аналог min), imax (целочисленный аналог max). Целочисленной версии функций мини-макса (imin, imax) давно не хватало, теперь они есть.

12. В стандартной библиотеке StdLib вызовы функций вида Round(max(..)), Round(min(..)) заменены на эквивалентные вызовы imin(..), imax(..). Старые вызовы носили вынужденный характер, т.к. целочисленной версии мини-макса не было. Новые вызовы делают код быстрее и понятнее.

Engines
Tcl/Tk
Python
SMI++
_cmdargs.pas
smirtl.pas
smirtlui.pas
smi_test_run.cmd
Assertion
IsSectionName
IsEnvVarLink
ReadIniAlter
msElapsedSinceMarker
DaqCreator
DaqConfigurator
DEMO_OSM
SmiProxy
DEMO_SMITEST

1. Главными достижениями данного выпуска являются: добавление функций Assertion, IsSectionName, IsEnvVarLink, ReadIniAlter, msElapsedSinceMarker; обновление утилит DaqCreator.lm9, CfgConfigurator.lm9; добавление в дистрибутив библиотеки SMI++ для организации конечных автоматов (FSM); добавление библиотеки SmiProxy для создания прокси серверов SMI/FSM; добавление в дистрибутив пакета install-daqgroup-engines, включающего "движки" - интерпретаторы DieselPascal, Tcl/Tk и Python.

2. В состав дистрибутива добавлен пакет "движков" install-daqgroup-engines (от слова engine - "движок", мотор), включающий в свой состав несколько интерпретаторов языков:
   • DieselPascal - кроссплатформенный интерпретатор языка Pascal, который был перенесен из пакета install-daqgroup-database. Движок DieselPascal является составной частью пакета CRW-DAQ. Бинарные файлы DieselPascal входят в crw32-runtime. А здесь содержится полный набор файлов (включая исходники).
   • Tcl/Tk - кроссплатформенный интерпретатор языка TCL, включающий в себя кроссплатформенную графическую библиотеку TK позволяющую создавать графические интерфейсы. Добавление движка Tcl/Tk связано с тем, что он используется в библиотеке SMI++.
   • Python - кроссплатформенный интерпретатор языка Python, включающий в себя кроссплатформенную графическую библиотеку Tkinter (на основе Tcl/Tk) позволяющую создавать графические интерфейсы. Добавление Python связано с тем, что это очень популярный "движок" с большим набором библиотек.
   
   Приведенные "движки" бывают нужны для исполнения скриптов, написанных на указанных языках. Использование скриптов часто сокращает объем и трудоемкость кодирования, а также позволяет использовать скрипты как "клей" для организации взаимодействия между разными пакетами и процессами. В состав пакета "движков" включены также дополнительные программные библиотеки, статьи и книги. Это позволяет изучать эти языки и эффективно заниматься разработкой прикладного ПО на них.

3. В состав дистрибутива добавлен пакет SMI++, который реализует Конечную Машину Состояний (FSM = finite state machine). Пакет расположен в папке Resource\SmiSite. Технология FSM на основе библиотеки SMI++ - большая тема, которая будет развиваться еще долго, сейчас делаются только первые шаги в этом направлении.

4. Созданы интерфейсные модули на языке Pascal, необходимые для подключения для библиотеки SMI++ и создания прикладных программ, использующих FSM. В папке smi_pasinter находится исходники.

5. В секции Crw32.ini [System] добавлены переменные окружения, нужные для работы DIM и SMI++. Также в пути поиска PATH добавлены каталоги бинарных файлов DIM и SMI++.

               [System]
               SmiSite       = Resource\SmiSite         ; расположение SMI
               DimSite       = Resource\DimSite         ; расположение DIM
               DaqSite       = Resource\DaqSite         ; расположение стандартных библиотек DAQ
               PathAddToTail = Resource\DimSite\dim\bin ; Add directory to tail of PATH environment
               PathAddToTail = Resource\SmiSite\smi\bin ; Add directory to tail of PATH environment
              

   Эти переменные и пути создают окружение, необходимое для запуска программ, использующих DIM и SMI++.

6. Создан скрипт для запуска ДЕМО примера SMI FSM smi_test_run.cmd. Для его запуска можно использовать такую команду:

              Запустить ДЕМО для иллюстрации работы SMI FSM
              
              @run Resource\SmiSite\smi_test_run\smi_test_run.cmd
              

   smi_test_run.cmd - содержит скрипт для запуска простого примера FSM. Этот пример моделирует простой эксперимент, в котором можно управлять запуском измерений (RUN), типом измерений (RUN_TYPE). Журнал (LOGGER) событий и сборщик событий (EVT_BUILDER) моделируют измерительные подсистемы. Автопилот (AUTOPILOT) организует цикл измерений. Все исполняемые файлы входят в библиотеку SMI++, скрипт только вызывает их в нужном порядке. По умолчанию запуск идет с DIM_DNS_NODE=localhost и с именем SMI домена DEMO. Для работы примера должен быть установлен движок Tcl/Tk из пакета daqgroup-engines.

7. В стандартную библиотеку добавлена процедура Assertion (утверждение). Она удобна для проверки условий с выводом сообщений. Например:

              Assertion(FileExists(f),'FileName='+f);
              
              это эквивалентно вызову
              
              if FileExists(f)
              then Success('FileName='+f)
              else Trouble('FileName='+f);
              
              но компактнее и исключает дублирование кода
              

8. В стандартную библиотеку добавлена функция IsSectionName. Она удобна для анализа текстов, разбитых на секции.

9. В стандартную библиотеку добавлена функция IsEnvVarLink. Она удобна для анализа текстов, содержащих ссылки на переменные окружения.

10. В стандартную библиотеку добавлена функция ReadIniAlter. Она удобна для чтения переменных окружения с ссылками на секции и на переменные окружения.
    Например:

               s:=ReadIniAlter('DnsNode',risModeDefault+risModeAlter);
               
               При чтении файла
               
               [&DeviceName]
               DnsNode = [&DimSrv] DIM_DNS_NODE %DIM_DNS_NODE% localhost
                  
               сначала читается секция  [&DimSrv] DIM_DNS_NODE
               потом, если не удалось:  %DIM_DNS_NODE%
               потом, если не удалось:  localhost
               
               Таким образом, будет прочитано одно одно из значений альтернативных источников.
               

11. Создана библиотека SmiProxy для создания прокси-серверов SMI на языке DaqPascal. Это первый шаг по интеграции SMI в пакет и CRW-DAQ.
    Библиотека SmiProxy делает задачу написания прокси-сервера SMI довольно несложной процедурой. При этом важно, что код прокси-сервера создается на привычном языке DaqPascal, что упрощает работу прикладного программиста.

12. Создана демо конфигурация DEMO_SMITEST для иллюстрации работы библиотеки SmiProxy.
    
    В первом приближении библиотека SmiProxy готова.
    
    Это важный шаг к интеграции технологии SMI в пакет.

13. В стандартную библиотеку добавлена функция msElapsedSinceMarker. Она удобна для организации "задержанных событий" после интересующего одиночного события.

14. Доработана утилита Crw32.Utils.lm9. В ней добавлены дополнительные кнопки для вызова утилит DIM и SMI.

15. Обновлены утилиты DaqCreator, DaqConfigurator. Обновление предоставил Н.Гурин.

16. Обновлена демо конфигурация DEMO_OSM драйвера шагового двигателя. Обновление предоставил Н.Гурин.

DieselPascal
Crw32.Utils.lm9
DaqCreator
DaqConfigurator
DEMO_LM9
DaqGroup.cmd
@local
@remote

1. Главными достижениями данного выпуска являются: обновление DieselPascal; доработка команды DaqGroup.cmd; добавление в стандартную библиотеку команд @local, @remote; доработка утилиты Crw32.Utils.lm9 и других утилит *.LM9.

2. Обновлен DieselPascal до версии 2.0.4. В новой версии (А.Курякиным) добавлены дополнительные функции WinApi, которые понадобились для реализации свертывания приложения в TrayIcon.

3. Доработана утилита Crw32.Utils.lm9. В ней добавлена возможность свертывания приложения в TrayIcon. При старте приложение свертывается в "иконку" в "Области Уведомлений", а также убирается из "Панели задач". Это экономит место на экране, а также предотвращает непреднамеренное закрытие программы, которое легко происходит при случайном нажатии мышкой в "Панели Задач". Приложение развертывается при нажатии "иконки" в "Области Уведомлений". По правой кнопке мыши появляется всплывающее меню, позволяющее управлять приложением. При этом практически исключается случайное закрытие приложения по ошибке.

4. Аналогичным образом доработаны утилит DaqCreator, DaqConfigurator, шаблон для создания утилит *.LM9 и пример утилиты DEMO_LM9. Теперь все эти утилиты будут "прятаться" в Область Уведомлений (System Tray).

5. Переработана команда DaqGroup.cmd. Эта команда имеет важное значение, т.к. используется в стандартных ярлыках для (авто)запуска DAQ-системы. Этот скрипт хоть и небольшой, но довольно сложный, т.к. запускает DAQ-систему под другим пользователем. Большие сложности создают символы "экранирования", из-за которых скрипт получается довольно запутанным. Было обнаружено, что этот скрипт срабатывает не всегда и (возможно) зависит от настроек системы. Скрипт был полностью переработан с целью упростить код и повысить его надежность. Будущее покажет, насколько это удалось.

6. В стандартный обработчик StdIn_DefaultHandler добавлены команды @Local и @Remote.
   
   Команда @Remote выполняет команду, заданную в аргументе, удаленно, т.е. пересылает её на удаленный DIM сервер для исполнения. Пересылка делается вызовом Dim_GuiConsoleSend(DevName,...) т.е. через защищенную виртуальную графическую консоль. Прием команды на стороне сервера выполняется вызовом Dim_GuiConsoleRecv(DevName,...).
   
   Команда @Local работает аналогично @Async, просто пересылая аргумент в свою консоль. Она сделана для удобства, как парная для команды @Remote.

DIM
@daq openconsole
@daq openeditor
DaqConfigurator
CfgConfigurator.lm9
Crw32.Utils.lm9

1. Главными достижениями данного выпуска являются: обновление DIM; доработка команды @daq; создание утилиты CfgConfigurator.lm9; доработка утилиты Crw32.Utils.lm9.

2. Целью данного выпуска было обновление версии DIM в составе пакета CRW-DAQ, а также добавление утилиты DaqConfigurator.

3. Обновлен DIM до текущей версии 20.29. В новой версии исправлены замеченные ошибки версии 20.27, высланные автору (Clara Gaspar). Сборка исполняемых файлов выполнена самостоятельно с помощью компилятора MSVC 2005 SP1 (MS Visual Studio 8).

4. Расширена функциональность команды @daq в Главной Консоли:

           Имевшиеся ранее команды:
              
              @daq devsend &CronSrv @run cmd - посылка сообщения (@run cmd) устройству &CronSrv (синхронно)
              @daq devpost &CronSrv @run cmd - посылка сообщения (@run cmd) устройству &CronSrv (в очередь)
              @daq compile &DimSrv           - компиляция (и перезапуск) устройства &DimSrv
              
           Добавленные команды:
              
              @daq openconsole &CronSrv      - открыть консольное окно для устройства &CronSrv
              @daq openeditor  &DimSrv       - открыть окно редактора кода для устройства &DimSrv
              

   Эти команды позволяют управлять работой устройств DAQ-системы из Главной Консоли.

5. Выполнение команды @daq было оптимизировано по скорости интерпретации с помощью хеш-таблиц.

6. В UnixUtils и CrwToolkit добавлена команда junction для создания "точек подключения", т.е. символических ссылок на папки. В UnixUtils также добавлены команды autologon (задание входа под пользователем по умолчанию), pipelist (список именованных каналов связи).

7. Добавлена новая группа утилит под общим названием "DAQ Конфигуратор" - DaqConfigurator. По замыслу, эта группа утилит будет служить средством автоматизации процесса разработки, позволяя создавать прикладные системы с помощью генераторов кода для файлов разного формата (конфигурационные файлы, файлы мнемосхем, программные коды). В настоящее время реализована первая версия конфигуратора для CFG файлов конфигурации - CfgConfigurator.lm9.
   
   Пока утилиты работают в режиме "Copy/Paste", т.е. являются дополнением к текстовому редактору, позволяя сгенерировать текст фрагмента конфигурационного файла по шаблону и затем вставить его в редактор. Возможно, со временем утилиты "научатся" непосредственно редактировать конфигурационные файлы, но пока это только замыслы.
   
   Утилиты разработаны Н.Гуриным (по замыслу и заданию А.Курякина).

8. Обновлена утилита Crw32.Utils.lm9. Добавлены кнопки работы с DAQ устройствами (Compile, Edit, Console, DevSend, DevPost). Добавлены кнопки настройки системы - Junc Prog32x64 (создание символических ссылок на программы); Set AutoLogon (автоматический вход в систему под заданным пользователем). Добавлена кнопка вызова DaqConfigurator.

9. Утилиты DaqCreator, DaqConfigurator переведены из разряда "вспомогательных инструментов" в разряд "штатных средств". В связи с этим они перенесены из папки Resource\Tools в папку Resource\DaqSite. Теперь это будет их постоянное место, вместе с другими штатными средствами (библиотеками, серверами) DAQ-системы. Соответсвенно изменены пути в файлах, которые ссылались на эти утилиты.

10. В первом приближении задачу интеграции DieselPascal в пакет CRW-DAQ можно считать решенной, а первый опыт использования DieselPascal - положительным. Со временем набор утилит, работающих в DieselPascal, будет, вероятно, расширен.

DIM
DimInstaller.cmd
Crw32.Utils.lm9
@run
DaqCreator.lm9

1. Главными достижениями данного выпуска являются: обновление DIM; инсталлятор DimInstaller.cmd; доработка команды @run; создание утилиты DaqCreator.lm9; доработка утилиты Crw32.Utils.lm9.

2. Целью данного обновления было обновление версии DIM в составе пакета CRW-DAQ.

3. Обновлен DIM до текущей версии 20.27. Предыдущая версия 20.02 была рабочей с 2012 года и долго не обновлялась. Одной из причин было то, что новые версии DIM "тянули" за собой зависимости от новых DLL библиотек MS Visual C++, которые к иму же несколько раз менялись. Изменение состава DLL библиотек влекло за собой изменение программного кода хорошо отлаженного сервера DimSrv.pas, трогать который не хотелось. А сейчас необходимость обновления DIM связана с тем, что мы вступаем в совместную работу с другими институтами и должны предложить им для совместной работы самую свежую версию DIM, а не старую версию, с которой мы долго работали в своем коллективе.
   
   Обновление было не тривиальным. Если раньше бралась просто двоичная копия DIM с сайта dim.web.cern.ch, то теперь было решено самостоятельно "собрать" библиотеки DIM из исходных файлов. Причины две - 1) хотелось убедиться, что мы владеем техникой сборки DIM и 2) хотелось избежать зависимостей от новых DLL библиотек MS Visual C++. Вторая причина повлекла за собой выбор компилятора - MS Visual Studio 2005. Эта версия использовалась для сборки старой версии DIM 20.02 и имеет те же самые зависимости от DLL, поэтому для неё можно использовать те же библиотеки, что и раньше. Это позволило сохранить неизменным код сервера DimSrv.pas, который ссылается на эти библиотеки.
   
   После установки компилятора MS Visual Studio 2005 (студия 8-й версии), а также Java Standard Edition SDK 1.8.0.181 (нужна для сборки библиотек для Java) была выполена сборка проекта Visual/dimVS8.sln. При сборке пришлось немного подредактировать файлы test_server.c, webdid.c из-за того, что версии компилятора и компонивщика слегка отличаются. Например, пришлось добавить определение #define snprintf _snprintf, чтобы компоновщик смог найти функцию snprintf в DLL библиотеке. Также надо отметить, что для сборки jdim.dll пришлось сделать следующее:
   • Добавить в системную среду окружения переменную JAVA_HOME, которая указывает на каталог Java SDK. Это можно сделать командой вида

                  set "key=HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Environment"
                  reg add "%key%" /v JAVA_HOME /t REG_SZ /d "c:\Program Files\Java\jdk1.8.0_181"
                  
                  или
                  
                  reg import java_home.reg
                  
                  REGEDIT4
                  [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Environment]
                  "JAVA_HOME"="c:\\Program Files\\Java\\jdk1.8.0_181"
                  

   • В файле jdim.vcproj задать каталоги поиска AdditionalIncludeDirectories="../dim;$(JAVA_HOME)\include;$(JAVA_HOME)\include\win32".
   
   После указанных манипуляций проект собирается без ошибок компиляции.
   Теперь у нас будет работать DIM собственной сборки.
   
   Кроме того, при сборке и отладке в файле dimbridge.cxx была обнаружена явная ошибка, которая приводила к сбою запуска dimBridge.exe, который у нас часто используется в рабочих системах. Ошибка была исправлена самостоятельно, автору (Clara Gaspar) направлен отчет об ошибке. Надеюсь, в следующем официальном выпуске DIM эта ошибка будет исправлена уже официально.

4. Создан сценарий DimInstaller.cmd для инсталляции DIM в %CommonProgramFiles%. Дело в том, что для избежания файловых конфликтов DIM копируется в каталог %CommonProgramFiles%\CRW_DAQ\Resource\DimSite, чтобы общие программы (такие как dns.exe) запускались из этого каталога и не блокировали каталог Crw32exe. При копировании надо проверять версию и целостность файлов, которые там уже есть (с предыдущей инсталляции). В общем, DimInstaller берет на себя задачу корректно скопировать DIM в нужное место. Вызов DimInstaller производится один раз (при инсталляции пакета). Кроме того, при обновления версии DIM перед сборкой инсталлятора делается вызов DimInstaller.cmd -m, чтобы обновить контрольные суммы, используемые для контроля целостности файлов.

5. Обновлен инсталлятор crw32-runtime. В него вставлен вызов сценария DimInstaller.cmd. Теперь при инсталляции будет автоматически обновляться каталог DIM в %CommonProgramFiles%.

6. Доработана команда @run в Главной Консоли. Команда @run по замыслу должна (подобно консоли cmd) определять имя исполняемого файла по расширению файла (документа). В процессе работы было замечено, что это срабатывает не всегда. Были внесены поправки в процедуру поиска исполняемого файла по расширению. Теперь это вроде бы должно работать правильно. В частности, команда @run script.lm9 должна корректно запускать сценарий Diesel Pascal.

7. Утилита DaqCreator переведена на Diesel Pascal. Это сокращает объем дистрибутива и унифицирует утилиты. Утилиту разработал Н.Гурин.

8. Обновлена утилита Crw32.Utils.lm9. Поправлен вызов утилиты DaqCreator. Добавлено редактирование системного файла etc\hosts для настройки сетевых имен.

9. В Главном Меню пакета добавлены изображения слева и пробелы справа от пункта меню для улучшения визуального разделения пунктов меню. Число пробелов устанавливается в переменной Crw32.ini [System] MenuRightSpaceWidth.

DieselPascal_External
Crw32.Utils.lm9
@list specfolders
paramstr('specfolder')
dpAntiZombie
DEMO_LM9

1. Главными достижениями данного выпуска являются: команда @list specfolders; функция paramstr('specfolder ...'); обновление библиотеки DieselPascal_External; доработка утилиты Crw32.Utils.lm9.

2. Целью данного обновления являются продолжение работы по интеграции DieselPascal в состав пакета CRW-DAQ. Выпуск носит технический характер и в основном содержит мелкие исправления и доработки предыдущего выпуска.

3. Обновлен DieselPascal до версии 1.16.3. В нем исправлены замеченные ошибки и добавлены новые возможности (например, процедурные переменные).

4. Обновлена библиотека Resource\DieselPascal\External. Добавился модуль dpAntiZombie для автоматического завершения дочерних программ после завершения работы пакета. Добавление этого модуля позволило перенести часть шаблонного (общего для всех утилит) кода в библиотечные файлы, что облегчит разработку и поддержку прикладных программ.

5. Обновлена утилита Crw32.Utils.lm9, а также пример DEMO_LM9 и шаблон для утилит *.LM9.

6. Добавлена команда @list specfolders:

               @list specfolders
                 CSIDL_DESKTOP=C:\Users\main\Desktop
                 CSIDL_PROGRAMS=C:\Users\main\AppData\Roaming\Microsoft\Windows\Start Menu\Programs
                 ...
                 
               @list specfolders system
                 C:\Windows\system32
              

   Команда показывает "специальные папки" - известные системе папки, типа каталога Windows\system32 и других папок, где располагаются файлы ОС и пользователей.

7. Добавлена функция ParamStr('specfolder ***'), которая возвращает "специальные папки" - все одним списком или по имени. Например:

              S:=ParamStr('specfolder *');       // S = список каталогов
              S:=ParamStr('specfolder system');  // S = C:\Windows\system32
              

   На самом деле вызов ParamStr('specfolder ...') работает аналогично утилите unix getspecialfolderpath. Надо также заметить, что в каждом програмном DAQ-устройстве (сделанному по шаблону) есть обработчик собщения @paramstr, который встроен в стандартный обработчик "по умолчанию". Поэтому в консоли устойств можно вызывать команду чтения специальных папок, например:

              @paramstr specfolder *
               ... список папок ...
               
              @paramstr specfolder fonts
               C:\Windows\Fonts
              

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

8. Обновлен инсталлятор DieselPascal. Теперь он поддерживает актуальность клиентской библиотеки fbclient.dll. Дело в том, что СУБД Firebird имеет несколько версий, и версия клиентской библиотеки должна соответствовать версии СУБД. Сейчас клиентская библиотека копируется из каталога инсталляции Firebird, если она установлена.

9. Обновлен инсталлятор Firebird. Было замечено, что инсталлятор отказывается работать, если в системе уже установлена другая версия Firebird. Теперь инсталлятор проверяет и деинсталлирует предыдущую версию программы, прежде чем начать инсталляцию новой версии.

DieselPascal_External
Crw32.Utils.lm9
PosEx
LastPos
CountPos
NthPos
text_tostring
DieselPascalAssocLm9Exe
DieselPascalDManagerExe
DieselPascalCrossMachineExe
DieselPascalCrossDesignerExe
HasDieselPascal
EasyIpc_Valid
EasyIpc_Connected
EasyIpc_IsServer
EasyIpc_IsClient
EasyIpc_FileName
EasyIpc_PipeName
EasyIpc_HostName
EasyIpc_BaseName
EasyIpc_Handle
EasyIpc_TimeOut
EasyIpc_RxBuffSize
EasyIpc_TxBuffSize
EasyIpc_RxLost
EasyIpc_TxLost
EasyIpc_RxTotal
EasyIpc_TxTotal
EasyIpc_RxLength
EasyIpc_TxLength
EasyIpc_RxFifoLimit
EasyIpc_TxFifoLimit
EasyIpc_LogsHistory
EasyIpc_LogsCount
EasyIpc_LogsTextMove
EasyIpc_LogsTextCopy
EasyIpc_Clear
LM9_TabCount
LM9_TidByKey
LM9_KeyByTid
LM9_IndexOfKey
LM9_KeyByIndex
LM9_IndexOfTid
LM9_TidByIndex
LM9_IpcByKey
LM9_IpcByIndex
LM9_IpcByTid
LM9_BufByKey
LM9_BufByIndex
LM9_BufByTid
LM9_ParamsByKey
LM9_ParamsByIndex
LM9_ParamsByTid
LM9_HasKey
LM9_HasTid
LM9_Send
LM9_Post
LM9_KeyFree
LM9_TidFree
LM9_Launch
DEMO_LM9
EGP_ISCS

1. Главными достижениями данного выпуска являются: добавление функций PosEx, LastPos, CountPos, NthPos, text_tostring; добавление группы функций EasyIpc_XXX и LM9_XXX для работы с программами LM9; улучшенная интеграция DieselPascal с пакетом CRW-DAQ; добавление демонстрационной конфигурации DEMO_LM9 для иллюстрации работы с программами DieselPascal; обновление библиотеки DieselPascal_External; доработка утилиты Crw32.Utils.lm9.

2. Целью данного обновления являются продолжение работы по интеграции DieselPascal в состав пакета CRW-DAQ.
   По факту, начальный этап интеграции можно считать выполенным. Есть работающие версии библиотек, демонстрационный пример как шаблон для создания прикладных программ. Работы по интеграции будут продолжаться, но уже сейчас можно начинать использование DieselPascal в прикладных задачах.

3. Обновлена библиотека Resource\DieselPascal\External. Устранены замеченные ошибки, дополнен недостающий функционал. Пока эта библиотека находится в активной стадии разработки, поэтому документацией служат исходные коды и комментарии к ним.

4. Обновлена утилита Crw32.Utils.lm9. Теперь её функционал уже превышает исходную версию Crw32.Utils.ini.

5. Добавлены функции для работы со строками и текстом:
   PosEx(Sub,Str,StartPos) - поиск вхождения подстроки в строке, начиная с StartPos.
   LastPos(Sub,Str) - поиск последнего вхождения подстроки в строке.
   CountPos(Sub,Str) - счетчик вхождений подстроки в строку.
   NthPos(Sub,Str,n) - поиск n-го вхождения подстроки в строку.
   Text_ToString(txt) - возвращает текст в виде длинной строки.
   
   Эти функции позволяют итерационно обрабатывать длинные строки текста, позволяя находить все вхождения подстроки (Sub) в строку (Str).
   Тексты могут храниться в двух видах - в виде строкового буфера, т.е. длинной строки с разделителями (LineEnding) или в виде текстового объекта (text_new). Текст в виде строкового буфера удобно хранить и передавать по линиям связи, но при построчной обработке текстовый объект удобнее, т.к. позволяет быстро находить и обрабатывать отдельные строки текста. Поэтому довольно часто приходилось "перегонять" данные из строкового буфера в текстовый объект и наоборот. Эти операции довольно трудоемки, хотелось бы минимизировать их использование. Новые функции позволяют осуществлять сравнительно быстрое позиционирование строк в строковом буфере текста, что позволяет во многоих случаях работать с буфером текста напрямую, без преобразования в текстовый объект. Например:

             procedure PrintLine(n:Integer;Line:String);
             begin
              Writeln(StrFmt('Line[%d] = ',n)+Line);
             end;
             
             procedure ProcessLines(Lines:String);
             var i,p,n:Integer; Line:String;
             begin
              i:=0; p:=1; n:=0;
              repeat
               i:=PosEx(LineEnding,Lines,i+1);
               if (i>0) then begin
                Line:=Copy(Lines,p,i-p);
                n:=n+1; PrintLine(n,Line);
                p:=i+Length(LineEnding);
               end else begin
                if (p<=Length(Lines)) then begin
                 Line:=Copy(Lines,p,Length(Lines)-p+1);
                 n:=n+1; PrintLine(n,Line);
                end;
               end;
              until (i<=0);
             end;
              

   Таким образом, новые функции позволяют серьезно ускорить обработку текстов, что особенно важно для взаимодействия с программами DieselPascal по текстовому каналу связи IPC.

6. Обновлен модуль стандартной библиотеки StdDiesel, содержащий большой набор функций для работы с Diesel Pascal и программами *.LM9.
   Группа функций DieselPascalXXX служит для поиска и идентификации исполняемых файлов DieselPascal.
   Группа функций EasyIpc_XXX служит для облегчения организации работы с каналами межпроцессной (IPC) связи EasyIpc.
   Группа функций LM9_XXX служит для облегчения запуска и работы с программами LM9, созданными и исполняемыми в среде DieselPascal. Предполагается, что программы LM9 будут взаимодействовать с DAQ-программами в реальном времени через каналы связи IPC.

7. Добавлена ДЕМО конфигурация DEMO_LM9, иллюстрирующая запуск прикладных программ LM9, созданных в среде DieselPascal, и взаимодействие с ними в режиме online. В данном случае в качестве иллюстрации взят простой генератор "синусовой волны" (SinWave). Программа DemoSinWaveControl.lm9 запускается по кнопке (Control) из программы DaqPascal и реализует диалог для задания параметров "волны" (частота, амплитуда, фаза, шум), а также генерирует и передает CosWaveValue. Она взаимодействует с DAQ-программой в режиме online, позволяя наблюдать текущие значения тегов, а также редактировать и менять их через графический интерфейс. Данная конфигурация призвана служить прототипом для других, более сложных и содержательных прикладных программ.

8. Добавлена ДЕМО конфигурация DEMO_EGP/EGP_ISCS, подготовленная Н.Гуриным. Эту прикладную систему отличает великолепная проработка графического интерфейса пользователя. Хорошая работа.

9. Обновлен DieselPascal до версии 1.16.1.

DieselPascal_External
Crw32.Utils.lm9
LineEnding
sLineBreak
DirectorySeparator
PathDelim
PathSeparator
PathSep
AddPathDelim
DropPathDelim
EasyIpc_Init
EasyIpc_Free
EasyIpc_Poll
EasyIpc_Send
EasyIpc_Recv
EasyIpc_Ctrl
ParamStr GetSystemAssoc
ParamStr GetSystemFType
ParamStr GetSystemAssocExe
ParamStr GetSystemFTypeExe
ParamStr CreateGUID
ExpEnv
CreateTempFile
StringReplace
AnsiQuotedStr
AnsiDeQuotedStr
AnsiSkipQuotedStr
StdDiesel
DieselPascal\Templates
CRW_DAQ_SYS_LANG
f_read
f_write

1. Главными достижениями данного выпуска являются: добавление функций ExpEnv, CreateTempFile, StringReplace, AnsiQuotedStr, AnsiDeQuotedStr, AnsiSkipQuotedStr; добавление набора EasyIpc_xxx функций в DaqPascal для организации простого взаимодействия между процессами; обновление и улучшенная интеграция DieselPascal с пакетом CRW-DAQ; библиотека DieselPascal_External; доработка утилиты Crw32.Utils.lm9.

2. Целью данного обновления являются продолжение работы по интеграции DieselPascal в состав пакета CRW-DAQ. В целом интеграция идет успешно, но пока она не завершена. Поэтому данная версия является промежуточной. Завершение интеграции планируется в ближайшее время.

3. Обновлен DieselPascal до версии 1.15.1. В него добавлено много функций, разработанных (А.Курякиным) специально для интеграции с пакетом CRW-DAQ. А также добавлены (А.Копниным) внешние (External) модули, что позволяет создать библиотеку программных модулей, которыми будут пользоваться все прикладные программы DieselPascal. Модули в языке DieselPascal делятся на внутренние (внутри файла *.lm9) и внешние. Все внешние (по отношению к файлу *.lm9) модули должны располагаться в одном каталоге, который задается в свойствах проекта. Для ссылки на каталог внешних модулей допустимо использовать переменные окружения. Предполагается, что все внешние модули программ, работающих в среде пакета CRW-DAQ, будут расположены в каталоге %DieselPascal_External%.

4. Продолжена работа по интеграции DieselPascal с пакетом CRW-DAQ. Все файлы, нужные для интеграции с DieselPascal, будут располагаться в каталоге Resource\DieselPascal.

5. В Crw32.ini [System.StartupScript] добавлен код, который при старте устанавливает переменную окружения

              
              DieselPascal_External = Resource\DieselPascal\External
              

   Это каталог, в котором будут размещаться стандартные библиотеки, общие для всех программ DieselPascal.
   Проекты *.lm9 должны ссылаться на него (в свойствах проекта) как на %DieselPascal_External%.

6. Обновлена утилита Crw32.Utils.lm9. В ней теперь используются внешние модули (стандартные библиотеки) в каталоге %DieselPascal_External%.

7. Обновлена команда @daq - добавлены опции devpost, devpostmsg:

              @daq devpost    &Device Msg     - послать сообщение Msg устройству &Device методом Post
              @daq devpostmsg &Device Msg     - послать сообщение Msg устройству &Device методом Post
              

   Напомним, метод Post посылает сообщение без принудительного пробуждения устройства, т.е. ставит его в очередь. Он применяется для снижения нагрузки при большом потоке событий.

8. В соответствии с рекомендациями по мультиплатформенному программированию, введен ряд функций DaqPascal:
   LineEnding, sLineBreak - разделители строк.
   DirectorySeparator, PathDelim - разделители каталогов.
   PathSeparator, PathSep - разделители путей PATH.
   AddPathDelim, DropPathDelim - переносимые синонимы функций Add/DropBackSlash.
   
   Эти функции введены для улучшения переносимости кода с DieselPascal и с Free Pascal, к которому мы постепенно движемся.

9. Добавлена новая группа функций, EasyIpc_xxx, для организации простого канала связи между процессами - IPC (Inter Process Communication):
   EasyIpc_Init - создание канала связи IPC.
   EasyIpc_Free - удаление канала связи IPC.
   EasyIpc_Poll - опрос канала связи IPC.
   EasyIpc_Send - посылка текста в канал связи IPC.
   EasyIpc_Recv - прием текста из канала связи IPC.
   EasyIpc_Ctrl - запрос/установка параметров канала связи IPC.
   
   Эта группа функций разработана специально для связи программ DaqPascal с программами DieselPascal, но может, разумеется, применяться и для других целей. Функции имеют подробное описание, с примером. Читайте.

10. Добавлены новые возможности функции ParamStr, для получения информации о типах файлов и привязки расширений файлов:
    ParamStr('GetSystemAssoc .ext') - узнать тип файла ассоциированный с расширением .ext.
    ParamStr('GetSystemFType type') - узнать командную строку ассоциированную с типом файла type.
    ParamStr('GetSystemAssocExe .ext') - узнать исполняемый файл ассоциированный с расширением .ext.
    ParamStr('GetSystemFTypeExe type') - узнать исполняемый файл ассоциированный с типом файла type.
    
    Эта группа функций нужна для выяснения расположения файлов DieselPascal по регистрации в системе. Например:

                s:=ParamStr('GetSystemAssocExe .lm9');                                  // Расположение DieselPascal CrossMachine.exe
                s:=ParamStr('GetSystemFTypeExe VisualTech.DieselPascal.CrossMachine');  // Расположение DieselPascal CrossMachine.exe
                s:=ParamStr('GetSystemFTypeExe VisualTech.DieselPascal.CrossDesigner'); // Расположение DieselPascal CrossDesigner.exe
               

    Также добавлена функция
    ParamStr('CreateGUID') - сгенерировать уникальный идентификатор GUID.
    
    Эта функция нужна для генерации уникальных имен для временных файлов, каналов связи или других объектов, нужных для вызова утилит DieselPascal из программ DaqPascal. Например:

                s:=ParamStr('CreateGUID');     // Сгенерирует что-то вроде {6B7826DD-B281-4BA9-B32F-AF78A24DEDA6}
                s:=ParamStr('CreateGUID str'); // Сгенерирует что-то вроде {6B7826DD-B281-4BA9-B32F-AF78A24DEDA6}
                s:=ParamStr('CreateGUID hex'); // Сгенерирует что-то вроде DD26786B81B2A94BB32FAF78A24DEDA6
               

11. Добавлены функции для манипуляции с файлами, строками и переменными окружения ExpEnv, CreateTempFile, StringReplace, AnsiQuotedStr, AnsiDeQuotedStr, AnsiSkipQuotedStr:

               s:=ExpEnv('%Temp%\demo.txt');  // Подстановка в строку переменных окружения, например, %Temp%.
               s:=CreateTempFile('XXX.TMP');  // Создать временный файл с префиксом XXX и расширением .TMP.
               s:=StringReplace(s,'1','2',3); // Заменяет строки в тексте
               s:=AnsiQuotedStr(s,'"');       // Помещает строку в кавычки ("закавычивает").
               s:=AnsiDeQuotedStr(s,'"');     // Удаляет кавычки из строки (выделяет первое "закавыченное" слово).
               s:=AnsiSkipQuotedStr(s,'"');   // Возвращает остаток строки после "закавыченного" слова.
               

    Функция CreateTempFile создает временный файл нулевой длины с заданным префиксом и расширением и возвращает его имя. Применяется для создания файлов временных промежуточных данных. После использования временные файлы надо удалять.

12. В стандартную библиотеку добавлен модуль StdDiesel, содержащий функции для организации запуска, завершения и взаимодействия с программами DieselPascal. Модуль находится в разработке и документирован частично. Полная документация будет после завершения разработки.

13. В пакет добавлена переменная окружения CRW_DAQ_SYS_LANG, содержащая информацию о языке интерфейса. Это сделано для того чтобы дочерние программы DieselPascal могли узнать, на каком языке работает их родительский процесс Crw32.exe и могли установить такой же язык интерфейса.

14. В функциях работы с файлами f_read, f_write сняты ограничения на длину строки (255). Теперь можно читать и записывать длинные строки, ограниченные длиной slenmax, которую можно узнать вызовом paramstr('[Compiler.Options] Compiler.slenmax').

15. Добавлен шаблон утилиты DieselPascal в каталоге Resource\DieselPascal\Templates. Шаблон содержит заготовку утилиты DieselPascal для работы в составе пакета CRW-DAQ. В шаблоне уже содержится код, нужный для большинства таких утилит. В частности,
    • Запуск единственного экземпляра программы.
    • Обработка исключений с записью в журнал событий.
    • Посылка сообщений в главную консоль процесса Crw32.exe.
    • Автоматическое завершение программы при завершении процесса Crw32.exe.
    • Чтение передаваемых параметров из временного файла (опция --params).
    • Открытие канала связи IPC (опция --easyipc).
    Шаблон еще не завершен (не успел), но уже вполне работоспособен.

DieselPascal
Crw32.Utils.lm9

1. Главными достижениями данного выпуска являются: обновление DieselPascal, доработка утилиты Crw32.Utils.lm9.

2. Обновлен DieselPascal. В него добавлено большое число недостающих функций - как общего назначения, так и специально созданных для работы в составе пакета CRW-DAQ. В частности, добавлены функции для прямой связи с процессом Crw32.exe путем посылки данных через сообщение WM_COPYDATA в Главную Консоль.
   
   Разработка дополнительных функций велась в сотрудничестве с автором DieselPascal. Накопленный опыт показал, что при необходимости можно вносить свои изменения в DieselPascal самостоятельно и развивать его так, как нам нужно. Это еще раз подтвердило правильность решения о включении DieselPasca в состав пакета.

3. Обновлена утилита Crw32.Utils.lm9. В ней проработаны механизмы взаимодействия с пакетом CRW-DAQ. Обновленный набор функций DieselPascal позволил ускорить посылку сообщений в консоль родительского процесса Crw32.exe. Доработана библиотека модулей, которая будет входить в каждую клиентскую программу DieselPascal, работающую в составе пакета. Предполагается, что такие програмы будут запускаться из процесса Crw32.exe и будут взаимодействовать с ним. Передача данных из процесса Crw32.exe в клиентскую программу DieselPascal происходит через переменные окружения и аргументы вызова. Обратная связь осуществляется через посылку сообщений в Главную Консоль процесса Crw32.exe. Библиотека содержит необходимые константы и функции, которые обеспечивают такое взаимодействие. В утилиту также добавлено большое количество кнопок для вызова функций операционной системы. Это делает утилиту полезным инструментом при работе в составе пакета. Утилита Crw32.Utils.lm9 послужит прототипом для всех будущих клиентских программ. На её основе будет разработан шаблон, из которого можно будет быстро создавать такие программы. Надо только немного точнее проработать механизм обмена данными c DAQ-системой, чтобы облегчить создание клиентских программ. Это будет сделано в ближайшее время.

DieselPascal
.lm9
Crw32.Utils.lm9

1. Главными достижениями данного выпуска являются: добавление DieselPascal в crw32-runtime, утилита Crw32.Utils.lm9.

2. 
   На просторах Сети найден полезный продукт - DieselPascal. Это интерпретатор Pascal со своей средой быстрой графической разработки IDE.

3. Налажена связь с автором DieselPascal (Юрий Копнин), от него получены исходные коды как самого интерпретатора, так и всех используемых библиотек. После того, как удалось самостоятельно "собрать" DieselPascal из исходных кодов, было принято решение интегрировать DieselPascal в состав runtime пакета. Отныне это часть среды исполнения.
   Причины выбора DieselPascal:
   • Открытый код на Free Pascal, свободная лицензия. Возможность менять или расширять код.
   • Небольшой объем исполнительной части (8 МБ в архиве). "Чистота" кода с точки зрения VirusTotal.
   • И при всем этом - наличие среды IDE для быстрой разработки графических интерфейсов.
   • Возможность создания прикладных программ для работы с базами данных.
   • Кроссплатформенность (Win32/64,Linux32/64) без изменения кода.
   DieselPascal привлекает своей относительной компактностью, возможностью быстрой разработки небольших прикладных программ с графическим интерфейсом и доступом к базам данных. Он, в силу своей невысокой скорости (интерпретатор все-таки), не является конкурентом DaqPascal или Object Pascal, однако выглядит хорошим инструментом для создания прикладных графических утилит, работающих в составе пакета.
   
   Очень удобно, что независимо от объема и сложности программы DieselPascal, она занимает ровно один файл (*.lm9), который одновременно является и исходным кодом, и исполняемой программой (скриптом). Поэтому не надо следить за большим числом библиотечных файлов и исходных кодов. Для небольших прикладных программ это достоинство.

4. В инсталлятор install-daqgroup-crw32-runtime добавлен исполнительный набор (runtime) DieselPascal, содержащий только программы и библиотеки. Полный набор (с документацией и исходными кодами) будет храниться в install-daqgroup-database. DieselPascal планируется активно использовать как в прикладных DAQ системах, так и в внешних системных утилитах пакета.

5. При инсталляции DieselPascal устанавливает ассоциацию (связь, привязку) с расширением .lm9. Это стандартное расширение для программ DieselPascal. Файловая ассоциация позволяет запускать программы DieselPascal прямо из оболочки (Explorer, TotalCommander, ...) или в консоли cmd /c call program.lm9 или с помощью grun -s program.lm9. Запускаемой программе можно передавать аргументы, как обычно. Фактически файлы .lm9 работают как исполняемые файлы.

6. Добавлена команда @reg для работы с реестром:

               @reg
               Syntax:
                @reg -r key name - прочитать ключ реестра key, параметр name (key,name заданы в URL-кодировке)
                @reg -f ftype    - узнать командную строку, ассоциированную с типом файла ftype
                @reg -a ext      - узнать тип  файла, ассоциированный с файловым расширением ext
                @reg -e ext      - узнать *.exe файл, ассоциированный с файловым расширением ext
               Examples:
                @reg -r HKLM\SOFTWARE\Microsoft\Windows+NT\CurrentVersion\Fonts PT+Mono+(TrueType)
                @reg -f VisualTech.DieselPascal.CrossMachine
                @reg -a .lm9
                @reg -e .htm
              

   Команда позволяет узнать, какой *.exe файл обрабатывает файлы с данным расширением или с данным типом. А также можно прочитать параметр из реестра с данным ключем (путем) и именем. Возвращаемое значение равно положительному числу (длине строки) или 0, если параметра нет. Например, так можно проверять наличие установленных программ или шрифтов.

7. В стартовый скрипт Crw32.ini [System.StartupScript] добавлена команда:

               @silent IsDieselPascalAvailable=@reg -a .lm9
              

   Эта команда проверяет доступность DieselPascal (по файловой ассоциации .lm9) и устанавливает переменную IsDieselPascalAvailable. Это позволяет проверять доступность DieselPascal программах DaqPascal.

               if eval('IsDieselPascalAvailable')=0
               then Problem('DieselPascal is not available.')
               else rNul(eval('@system @async @silent @run grun -s DemoProgram.lm9'));
               
               Примечание: grun -s запускает программу через оболочку Shell, т.е. с учетом расширения
              

8. Сделана первая утилита на DieselPascal - Crw32.Utils.lm9. Эта команда заменяет встроенное меню "Инструменты\Консольные утилиты", если доступен (установлен) DieselPasca, и в меню стоит "Инструменты\Внешние утилиты разрешены.". Пакет запускает утилиту Crw32.Utils.lm9 через команду @run и она выполяется автономно. Через унаследованные переменные окружения утилита имеет ссылку на родительский процесс Crw32.exe и может с ним взаимодействовать. При выборе в списке команд интересующей команды, эта команда посылается в консоль родительского пакета для выполнения. Утилита Crw32.Utils.lm9 автоматически завершается, если родительский процесс прекратил работу.
   
   Утилита Crw32.Utils.lm9 содержит полный набор библиотек и средств для взаимодействия с пакетом. Эта утилита, помимо прикладного значения, может служить шаблоном для создания других утилит на языке DieselPascal, работающих в составе пакета. В этой утилите уже собраны средства, необходимые для взаимодействия с пакетом, DAQ системой и ОС.

9. Опыт создания утилиты на DieselPascal показал, что это - не игрушка, а вполне рабочий инструмент для создания небольших прикладных программ с графическим интерфейсом, работающих в составе пакета. С DieselPascal связаны далеко идущие планы, которые могут радикально изменить практику прикладного программирования в пакете. Случится ли это - увидим со временем.

@env
PATH
Сrw32.ini
Resource\Shared
database
@daq toplist
@list modules
CurveTopListLimit
TableTopListLimit
CircuitTopListLimit
SpectrTopListLimit
DaqTopListPeriod
TAG_REF_MIN
TAG_REF_MAX
adjustlinebreaks
@paramstr DaqSysInfo

1. Главными достижениями данного выпуска являются: константы TAG_REF_MIN, TAG_REF_MAX; функция adjustlinebreaks; оптимизация функций рисования для свернутых (спрятанных) окон; команда @daq toplist для организации топ-листа отображаемых окон; команда @list modules для вывода списка используемых DLL; настройка топ-листа окон с помощью диалога и секции [DAQ]; инсталлятор install-daqgroup-database; каталог общих библиотек Resource\Shared; обновление команды @env и @daq; обновление файла Crw32.ini.

2. Заведены константы TAG_REF_MIN, TAG_REF_MAX. Они задают диапазон, в котором лежат ссылки на теги, что позволяет организовывать циклы по всем тегам. Например:

              procedure PrintAllTags;
              var tag:Integer;
              begin
               for tag:=TAG_REF_MIN to TAG_REF_MAX do
               if typetag(tag)>0 then writeln(nametag(tag));
              end;
              

3. Заведена функция adjustlinebreaks, которая исправляет разделители строк, преобразуя их в CRLF. Эта функция полезна для обработки текстов, поступающих по сети (например, HTTP) или созданных в других системах (MAC, Linux), где приняты другие разделители строк.

4. Обновлена команда @env. Добавились опции работы с переменной окружения PATH:

               @env /c name      - проверить, существует ли переменная окружения name
               @env /v PATH      - исправить (validate) переменную PATH (список поиска)
               @env /t PATH dir  - добавить dir в конец  (tail) переменной PATH
               @env /h PATH dir  - добавить dir в начало (head) переменной PATH
               @env /d PATH dir  - удалить (delete) dir из переменной PATH
               
               например (из файла Crw32.ini):
               
               @env /t PATH %CRW_DAQ_SYS_HOME_DIR%\Resource\Shared   - включает в PATH каталог общих библиотек
               @env /t PATH %CRW_DAQ_SYS_HOME_DIR%                   - включает в PATH домашний каталог пакета
              

   Переменная окружения PATH содержит список каталогов - путей поиска программ и файлов. Эти каталоги могут отсутствовать, или переменная может быть задана неверно. Такое возможно, например, в результате инсталляции/деинсталляции программ, которые вносят изменения в переменную PATH. Команда исправления @env /v PATH исправляет список путей поиска, удаляя из него несуществующие каталоги и исправляя формат списка. Команды @env /h PATH dir, @env /t PATH dir позволяют добавлять каталог dir в начало (head) или в конец (tail) списка каталогов в переменной PATH. Команда @env /d PATH dir удаляет каталог dir из списка каталогов переменной PATH.
   
   Перечисленные команды позволяют редактировать переменную PATH, чтобы делать доступными для поиска файлов те или иные каталоги. Это играет большую роль при вызове программ (например, командой @run), т.к. дочерние процессы наследуют переменные окружения процесса, включая PATH.

5. Обновлена команда @list. Добавлена функция @list modules.

              @list modules       - выдает список модулей (EXE,DLL) текущего процесса
              @list modules 321   - выдает список модулей (EXE,DLL) процесса номер 321
              

   Команда @list modules позволяет узнать, какие библиотеки DLL использует данный процесс. Это может помочь, например, если есть несколько версий одноименных DLL в разных каталогах, и надо понять - какую из них загрузил процесс. Также помогает установить, от каких DLL библиотек зависит процесс.

6. Заведен каталог общих библиотек Resource\Shared, в котором находятся *.DLL библиотеки, необходимые разным программам, входящих в состав пакета.

7. Обновлен файл параметров Crw32.Param.ini, секция [System.StartupScript]. В этой секции в PATH включаются: каталог общих библиотек Resource\Shared и домашний каталог пакета. Благодаря этому общие библиотеки становятся доступны для поиска. Это значит, что все запускаемые из среды пакета программы автоматически будут иметь доступ к этим библиотекам.

8. Предпринята большая работа по оптимизации функций прорисовки, т.е. минимизации рисования для уменьшения нагрузки CPU. Это связано с тем, что в больших системах бывают десятки окон и сотни кривых. Экран монитора в принципе не может вместить столько окон и графиков одновременно, поэтому обычно большая часть окон бывает "свернута" или "спрятана". При этом на обновление "свернутых" окон все же тратились ресурсы.
   
   Для оптимизации сделано следующее.
   
   Во-первых, в окнах кривых, таблиц и мнемосхем сделан (по возможности) "обход" рисования для "свернутых" или "спрятанных" окон, т.к. они все равно не видны на экране. Обход рисования позволяет избежать ненужных затрат ресурсов процессора.
   
   Во вторых, сделан полезный инструмент - "топ-лист" - для закрытия "лишних" окон. Смысл инструмента в том, чтобы "свернуть" все окна заданного пользователем типа, кроме небольшого числа недавно открытых окон, входящих в "топ-лист". Команда @daq toplist Curve_Window 5 оставляет открытыми только 5 недавно открытых окон с кривыми (Curve_Window), а остальные окна "сворачиваются" и становятся невидимыми.

              @daq toplist t1,n1,t2,n2,...   - команда отображения топ-листа окон и сворачивания остальных окон
              t1,t2, ...                     - тип окна: Curve_Window, Tab_Window, Circuit_Window, Spectr_Window
              n1,n2, ...                     - число окон заданного типа в списке TopList
              
              например:
              
              @daq toplist Curve_Window 5 Tab_Window 4 Circuit_Window 7 Spectr_Window 3
              

   При построении "топ-листа" учитываются только окна, имеющие кнопку "закрыть" или "свернуть". Если окна не имеют этих кнопок, они всегда остаются на экране и не принимаются в расчет при построении "топ-листа". Это позволяет отделять окна, которые всегда нужны на экране (например, главная мнемосхема), от других окон, которые открываются на время для посмотра определенных данных.
   
   Команду @daq toplist ... можно использовать многими способами. Можно вызывать её периодически, например, создав задание Cron. Можно вызывать её по кнопке, чтобы закрывать лишние окна. Топ-лист позволяет не только избежать излишней нагрузки процессора, но и может сделать работу удобнее, т.к. множество одновременно открытых окон только мешают сосредоточиться на решаемой в данный момент проблеме. Ограничение числа одновременно открытых окон с помощью топ-листа поможет сделать работу более быстрой и комфортной.

9. Для облегчения использования топ-листа окон в секции [DAQ] заведены параметры:

               [DAQ]                   ; Параметры топ-листа по умолчанию:
               CurveTopListLimit   = 0 ; Предел числа окон в топ-листе окон кривых
               TableTopListLimit   = 0 ; Предел числа окон в топ-листе окон таблиц
               CircuitTopListLimit = 0 ; Предел числа окон в топ-листе окон мнемосхем
               SpectrTopListLimit  = 0 ; Предел числа окон в топ-листе окон спектров
               DaqTopListPeriod    = 5 ; Период опроса топ-листа окон DAQ системы, сек
              

   По умолчанию топ-лист отключен (пределы имеют нулевое значение).
   При указании в конфигурации DAQ отличных от нуля пределов, топ-лист включается в работу.
   При этом система с заданным периодом опрашивает и корректирует список окон, закрывая (сворачивая) лишние окна, не входящие в топ-лист.

10. В диалог "Операции с окнами DAQ" добавлена группа элементов:
    
    для управления топ-листом окон в интерактивном режиме.

11. Для анализа работы пакета и диагностики затрат на рисование, в программе заведены счетчики и сделан их вывод в консоль "Монитор ресурсов". Также счетчики доступны через вызов paramstr('DaqSysInfo name'), где name - имя параметра, например:

                paramstr('DaqSysInfo Tag.Count')                         счетчик всех тегов
                paramstr('DaqSysInfo Curve.Count')                       счетчик всех кривых
                paramstr('DaqSysInfo Sensor.Count')                      счетчик всех сенсоров
                paramstr('DaqSysInfo Circuit_Window.TagEvalCall.Count')  счетчик вызовов TagEval(v)
                и так далее
               

    Счетчики и (главное) их частота позволяют оценить, сколько и на что тратятся ресурсы при работе.

12. В консоли DAQ устройств добавлена обработка команды @paramstr (в стандартной библиотеке StdIn_DefaultHandler). Команда вызывает функцию ParamStr(arg) с переданным аргументом и печатает результат в консоли устройства. Команда служит для информативной цели, в помощь разработчикам. Например:

     @paramstr DaqSysInfo Tag.Count  - напечатает счетчик тегов.

13. В дистрибутив добавлен новый инсталлятор install-daqgroup-database, содержащий программы, библиотеки и документацию для работы с базами данных. Это сделано "на перспективу" в связи с планами добавить в пакет поддержку работы с БД. Предположительно ориентируемся на Firebird.

@sysinfo
ansicodepage
oemcodepage
clickWhat
cw_MouseWheel
cw_MouseWheelDown
cw_MouseWheelUp
clickFilter
clickAwaker
DEMO_PAINT_GUILIB

1. Главными достижениями данного выпуска являются: добавление информации @sysinfo; информация о кодовых страницах ansicodepage, oemcodepage, добавление поддержки событий колесика мыши (Mouse Wheel) и добавление констант (cw_MouseWheel, cw_MouseWheelDown, cw_MouseWheelUp), увеличение допустимой длины строк текста программы до 161.

2. Добавлена дополнительная информация в команде @sysinfo. Она касается версии OS, CPU и информации о языке, например:

              @sysinfo
               OS ver   : WIN-NT 10.0.17763 - Windows 10 Enterprise LTSC 2019
               ...
               CPU Info : Count:2, List:(0,1), Arch:x86, Level:6, Revision:3C03
               CPU 0    : Intel(R) Core(TM) i7-4700MQ CPU @ 2.40GHz, GenuineIntel, x86 Family 6 Model 60 Stepping 3
               CPU 1    : Intel(R) Core(TM) i7-4700MQ CPU @ 2.40GHz, GenuineIntel, x86 Family 6 Model 60 Stepping 3
               CPU Freq : 2394.535 MHz (eastimated), 2394 MHz (registry)
               ...
               RS-232   : COM1,COM2
               CodePage : ANSI CP1251, OEM CP866.
               Language : System=$419,RUS,Русский (Россия); User=$419,RUS,Русский (Россия).
               Locale   : System=$419,RUS,Русский (Россия); User=$419,RUS,Русский (Россия).
               User     : main is elevated member of group(s) ADMINS,USERS
               ...
               Добавленная информация выделена синим цветом.
              

3. В Главной Консоли добавлены константы с информацией о текущих кодовых страницах ansicodepage, oemcodepage. Например, для русскоязычной версии OS:

               @list cons               вывести список констант
               ...
               ansicodepage = 1251      кодовая страница ANSI
               oemcodepage  = 866       кодовая страница OEM/DOS
               ...
              

   Знание кодовых страниц может быть полезно при вызове программ командой @run ..., чтобы знать, в какой кодировке производится ввод-вывод.
   Напомним, что для доступа к константам Главной Консоли в DaqPascal можно использовать вызовы типа eval('@system ansicodepage') .
   Константы кодовых страниц задаются и обновляются командой @view screen .

4. В сенсоры мнемосхем добавлены события обработки колесика мыши (Mouse Wheel). Они возникают при прокрутке/нажатии/отпускании колесика мыши, когда курсор находится в пределах сенсора.
   
   В функции ClickWhat добавились события: cw_MouseWheel=6, cw_MouseWheelDown=7 и cw_MouseWheelUp=8 - для поворота колесика, нажатия и отпускание кнопки колесика.
   
   В функции ClickParams('What') соответственно добавились значения: MouseWheel (поворот колесика), MouseWheelDown (нажатие кнопки колесика), MouseWheelUp (отпускание кнопки колесика).
   
   В функции ClickParams('Wheel') добавилось новое поле: Wheel (колесо), которое возвращает приращение колесика мыши при его прокручивании: ClickParams('Wheel'). Приращение обычно кратно 120, а его знак зависит от направления вращения.
   
   Добавлена переменная WHEEL_DELTA, по умолчанию равная 120 (стандартное значение в Windows). Это шаг приращения для обработки события MouseWheel. Вызов ClickParams('Wheel') возвращает приращение, кратное WHEEL_DELTA.
   
   В функции ClickFilter соответственно добавились новые маски: 64 (разрешение события MouseWheel), 128 (разрешение события MouseWheelDown), 256 (разрешение события MouseWheelUp). По умолчанию события колесика запрещены, поэтому их необходимо явно разрешить в программе. Например:

              i:=ClickFilter(0);                      // Прочитать значение фильтра
              i:=iSetBitState(i,cw_MouseWheel,true);  // Установить бит cw_MouseWheel
              iNul(ClickFilter(i));                   // Задать значение фильтра
              

   
   В функции ClickAwaker соответственно добавились новые маски: 64 (разрешение пробуждения по событию MouseWheel), 128 (разрешение пробуждения по событию MouseWheelDown), 256 (разрешение пробуждения по событию MouseWheelUp). По умолчанию пробуждение по событиям колесика запрещены, поэтому их необходимо явно разрешить в программе.
   
   Разрешение и обработка событий колесика мыши позволит, например, создавать управляемые оператором графические поля, в которых значения можно менять не вводом чисел, а вращением колесика мыши.

5. В конфигурацию DEMO_PAINT_GUILIB добавлен тест (Test Wheel) для проверки обработки событий колесика мыши.
   Обработка события вращения колесика мыши в цикле обработки событий делается примерно так:

              {
              Handle user mouse/keyboard clicks...
              }
              if ClickWhat<>0 then
              repeat
               // Handle MouseDown/KeyDown
               if (ClickWhat=cw_MouseDown) or (ClickWhat=cw_KeyDown) then begin
                 ...Обработка обычных кликов...
               end;
               //
               // Handle mouse wheel
               //
               if ClickWhat=cw_MouseWheel then begin                        // Если это событие колесика мыши
                if ClickTag=tagWheelTestData then begin                     // Если это интересующий нас сенсор
                 i:=Round(Val(ClickParams('Wheel'))/WHEEL_DELTA);           // Вычислить шаг приращения из ClickParams('Wheel')
                 if i<>0 then bNul(rAtomicTagOp(tagWheelTestData,'+',i));   // Применить это приращение к тегу
                end;
               end;
              until (ClickRead=0);
              

6. Было замечно, что в мыши, где колесико играет роль средней кнопки мыши, нажатия\отпускания колесика мыши не генерируют события MouseWheelDown\MouseWheelUp, а распознаются как обычные клики MouseDown\MouseUp со средней кнопкой мыши ClickButton=VK_MBUTTON. Это по-своему логично. Такое поведение необходимо учитывать при написании программ.

7. В ограничениях DaqPascal изменена максимальная длина буфера входной строки с 121 до 161 символов. Использование длинных строк в текстах программ не рекомендуется, но в некоторых случаях допустимо. Рекомендуется по-прежнему ограничивать длину строк программного кода 120 символами, а строки до 160 символов использовать в исключительных случаях, если это улучшает структуру кода.

8. Обновлен генератор конфигураций DaqCreator от Н.Гурина.