Skip to content

Latest commit

 

History

History
62 lines (41 loc) · 4.4 KB

README_ru.md

File metadata and controls

62 lines (41 loc) · 4.4 KB
Raw

Caché Native Access (CNA)

CNA — связка класса Caché и библиотеки на C, позволяющая вызывать функции из внешних библиотек, написанных на C или бинарно с ним совместимых. CNA основана на libffi.

Установка

Linux

  • Собираем libffi: make libffi. Если ругается на отстуствие переменной GLOBALS_HOME — прописываем
 export GLOBALS_HOME='путь к корневой папке Caché'
  • Собираем libcna: make
  • Готово! Нужный нам файл — libcna.so. Осталось только импортировать класс cna.xml в любую удобную область Caché:
 do $system.OBJ.Load("путь к cna.xml", "c")

Windows

Для Windows-систем можно повторить указанные выше действия (для компиляции и сборки использовать mingw32 или mingw32-w64). Или можно загрузить уже готовые бинарные версии CNA. Внимание: разрядности libcna, инсталяции Caché и внешних библиотек должны совпадать. Импорт cna.xml делаем аналогично или через студию.

Запуск тестов

Для проверки работоспособности CNA можно запустить юнит-тесты. Для запуска тестов необходима библиотека с тестовыми функциями libtest. Если вы собирали libcna сами, то она уже лежит где надо. Если нет — ее нужно поместить в папку cna/tests/. Далее, присваиваем глобалу ^UnitTestRoot нужное значение и запускаем тесты:

 set ^UnitTestRoot="путь к папке tests"  
 do ##class(%UnitTest.Manager).RunTest()

Простой пример

Попробуем вызвать функцию strlen из стандартной библиотеки языка C. В Windows она скорее всего находится по адресу C:\Windows\System32\msvcrt.dll. В Linux — /usr/lib/libc.so. Функция strlen возвращает длину строки:

 size_t strlen ( const char * str );

Посмотрим, что нужно сделать, чтобы вызвать ее из Caché:

 set cna = ##class(CNA.CNA).%New("путь к libcna") ; Создаем объект класса CNA.CNA. В аргументах указываем путь к libcna.dll или libcna.so
 do  cna.LoadLibrary("путь к libc")               ; Загружаем стандартную библиотеку С в CNA

 set string = cna.ConvertStringToPointer("Hello") ; Конвертируем нужную строку в массив типа char, и сохраняем указатель на первый
                                                  ; элемент — именно в таком виде хранятся строки в C 

 set argTypes = $lb(cna.#POINTER)                 ; Создаем список параметров класса CNA.CNA, в котором передаем типы аргументов
                                                  ; И вставляем параметр класса, который обозначает тип "указатель"

 set result = cna.CallFunction("strlen",          ; Передаем имя вызываемой функции,
                                cna.#SIZET,       ; тип возвращаемого значения,
                                argTypes,         ; список типов аргументов функции
                                string)           ; и все значения аргументов через запятую

 w result, !                                      ; Проверяем результат (должно получиться 5)
 do cna.FreeLibrary()                             ; Освобождаем загруженную библиотеку