Как изменить некоторые методы стат. библиотеки и экспортировать оставшиеся?

Question

[Александр +]

Есть библиотека https://github.com/albertodemichelis/squirrel

Готовлю проект для VS 2022, собираются как dll'и с экспортируемыми функциями так и статические *.lib

Проблема в том что в нынешнем виде библиотека не применима в моем случае, мне надо обернуть некоторые функции которые работают с SQChar типом (char/char* или wchar_t/wchar_t*) таким образом чтобы я мог знать размер строк которые получаю и указывать размер строк которые передаю.
Весь экспорт описан в squirrel.h

Создаю проект dll для Winodws,
в свойствах проекта:
в с++ / General / Add. include directories указал пути к include squirrel'а.
в Linker / General / Add. include directories указал путь к папке куда собираются squirrel_static.lib
в Linker / Input/ Additional dependencies указал squirrel_static.lib

и когда собираю свою dll'у она не экспортирует то что описано в squirrel.h вообще ни одной функции.
даже если я скопирую какой-нибудь экспорт в dllmain.cpp:

// dllmain.cpp : Defines the entry point for the DLL application.
#include "pch.h"
#include "squirrel.h"

SQUIRREL_API HSQUIRRELVM sq_open(SQInteger initialstacksize);

BOOL APIENTRY DllMain( HMODULE hModule,
                       DWORD  ul_reason_for_call,
                       LPVOID lpReserved
                     )
{
    switch (ul_reason_for_call)
    {
    case DLL_PROCESS_ATTACH:
    case DLL_THREAD_ATTACH:
    case DLL_THREAD_DETACH:
    case DLL_PROCESS_DETACH:
        break;
    }
    return TRUE;
}

то в моей dll'е по факту нет экспортируемых функций после сборки.
Хотелось бы чтобы часть функций которые я трогать не буду, сами экспортировались из squirrel.h

Answer 1

[Александр +]

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

Answer 2

[Станислав Макаров]

А что вы делаете вообще? Эта библиотека в качестве сборочной системы использует CMake. В вашем вопросе никак не отражено, как вы вызывали CMake и с какими параметрами. Ничего не понятно.

Кроме того, эта библиотека есть в Conan Center, может проще поставить оттуда?
В vcpkg кстати тоже есть.

Comments

[Александр +]

Кроме того, эта библиотека есть в Conan Center, может проще поставить оттуда?

Не проще, не решит мою проблему, там старые версии.

. В вашем вопросе никак не отражено, как вы вызывали CMake и с какими параметрами. Ничего не понятно.

CMake GUI - путь к папке исходников - есть.
Путь куда билдить - указал.
Configure, Generate, Open project, Build solution. Вот и все что я сделал. На выходе получена тьма obj, dll, lib и прочие... Тут никаких проблем не встречено.

А что вы делаете вообще?

Пытаюсь понять почему возвращаемый мне wchar_* в C++ выглядит строкой, в а приложении куда подключена dll'а, выглядит лютейшим мусором.
Пока что из предположений то что С++ чистит память по завершении работы функции, в итоге я вижу набор иероглифов при том ни разу не того размера что имеет исходная строка.

[Александр +]

Станислав Макаров
Кажется я нашел причину:
Мне надо обернуть функции возвращающие строки во что-то типа такого:

// Dll2.cpp : Defines the exported functions for the DLL.
//

#include "pch.h"
#include "framework.h"
#include "Dll2.h"
#include <string>

using namespace std;

SQInteger wsq_getversion()
{
    return sq_getversion();
}

char* wsq_teststrReturn()
{
    char* str1;
    static const char* errorMsg = "Path return no points.";
    static const size_t needed = std::strlen(errorMsg) + 1;

    str1 = static_cast<char*>(LocalAlloc(LMEM_FIXED, needed));
    if (str1)
        std::copy_n(errorMsg, needed, str1);
    return str1;
}

wchar_t* wsq_teststrReturnW()
{
    wchar_t* str1;
    static const wchar_t* errorMsg = L"Приятное управление памятью...";
    static const size_t needed = wcslen(errorMsg) + 1;

    str1 = static_cast<wchar_t*>(LocalAlloc(LMEM_FIXED, needed));
    if (str1)
        std::copy_n(errorMsg, needed, str1);
    return str1;
}

теперь с той стороны мне надо объявить переменную типа сходного с wchar_t*/char* и не забыть вызвать LocalFree

Придется таким образом обернуть пару десятков функций, из сотни.
И тут 2 новых вопроса:
1. Почему squirrel.dll собранная в MSVS весит ~400 кб, а моя dll2 которая вроде как подключила и вобрала в себя squirrel.lib, весит на выходе 58 кб? Дебаг профиль не выключал. Вон я версию обернул в свою функцию и оно работает даже.

2. squirrel.dll собранная в MSVS наружу вроде как выводит кучу функций типа sq_instanceof, sq_version:

/*
Не совсем понимаю, как именно экспортируются функции из squirrel.dll описанные как SQUIRREL_API 
#ifdef __cplusplus
extern "C" {
#endif

#ifndef SQUIRREL_API
#define SQUIRREL_API extern
#endif
*/

SQUIRREL_API SQBool sq_instanceof(HSQUIRRELVM v);
SQUIRREL_API SQRESULT sq_tostring(HSQUIRRELVM v,SQInteger idx);
SQUIRREL_API void sq_tobool(HSQUIRRELVM v, SQInteger idx, SQBool *b);
SQUIRREL_API SQRESULT sq_getstringandsize(HSQUIRRELVM v,SQInteger idx,const SQChar **c,SQInteger *size);
SQUIRREL_API SQRESULT sq_getstring(HSQUIRRELVM v,SQInteger idx,const SQChar **c);

тут мне придется только обернуть sq_getstring и sq_getstringandsize чтобы строка в аргументе с не испарилась до того как её получит мой код)
Можно как-то сделать так чтобы моя dll подключающая squirrel.lib автоматически экспортировала все что там есть + мои доп. функции? Или придется совершить финт ушами 100500 раз в духе:

/*
#ifdef DLL2_EXPORTS
#define DLL2_API extern "C" __declspec(dllexport)
#else
#define DLL2_API __declspec(dllimport)
#endif
*/

DLL2_API SQBool __cdecl sq_instanceof(HSQUIRRELVM v);
DLL2_API SQRESULT __cdecl sq_tostring(HSQUIRRELVM v, SQInteger idx);
DLL2_API void __cdecl sq_tobool(HSQUIRRELVM v, SQInteger idx, SQBool* b);
DLL2_API SQRESULT __cdecl sq_getstringandsize(HSQUIRRELVM v, SQInteger idx, const SQChar** c, SQInteger* size);
DLL2_API SQRESULT __cdecl sq_getstring(HSQUIRRELVM v, SQInteger idx, const SQChar** c);

[Станислав Макаров]

Пытаюсь понять почему возвращаемый мне wchar_* в C++ выглядит строкой, в а приложении куда подключена dll'а, выглядит лютейшим мусором.

Александр + Не понял тут что где не так выглядит, но на всякий случай спрошу - вы всё собираете в одинаковой конфигурации? Нигде случаем нет такого, что одно дебаг, другое - релиз?

[Станислав Макаров]

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

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

[Станислав Макаров]

@AlexanderMi

sq_getstringandsize

Покажите подробно, как вы вызываете эту функцию и как определяете, что получили мусор. Не может быть так что строка куда-то испаряется. Это значит или там её вообще нет (что можно узнать по size), либо всё-таки что-то криво собрано или криво вызывается.

[Станислав Макаров]

https://github.com/albertodemichelis/squirrel/blob... - макрос _stringval просто возвращает существующую строку (указатель на строку), т.е. в выходной параметр просто копируется указатель. Следовательно, работать со строкой можно, пока живёт объект в VM-ном стеке. Если вы делаете, к примеру, sq_close, а только потом пытаетесь работать со строкой - конечно там будет мусор.

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

[Александр +]

Не понял тут что где не так выглядит, но на всякий случай спрошу - вы всё собираете в одинаковой конфигурации? Нигде случаем нет такого, что одно дебаг, другое - релиз?

Это никак влиять не должно априори т.к. dll это законченный продукт. И да, везде Debug.
Единственное что может быть это то что строка теряется (чистится по завершению вызова в С++), а мой код получает указатель на мусор.

Покажите подробно, как вы вызываете эту функцию и как определяете, что получили мусор. Не может быть так что строка куда-то испаряется. Это значит или там её вообще нет (что можно узнать по size), либо всё-таки что-то криво собрано или криво вызывается.

Ничего не криво, это какая-то особенность плюсов...

Все типы и функции описаны в squirrel.h, sqconfig.h и глубже смотреть не надо ни в какие заголовки и тем более реализацию, это внутрянка этого языка.
Вот так идет вызов, библиотека грузится статично ( т.е. не через LoadLibrary, GetProcAddress):

lVM := sq_open(1024);
    try
      sq_pushroottable(lVM);
      sq_setprintfunc(lVM, @VMPrintFunction, @VMErrorFunction);
      sqstd_seterrorhandlers(lVM);  //теперь sqstdlibaux.cpp будет вызывать VMPrintFunction и VMErrorFunction
      sqstd_register_iolib(lVM);
      sqstd_register_mathlib(lVM);
      sqstd_register_stringlib(lVM);
      sqstd_register_systemlib(lVM);
      sq_pop(lVM, 1);
      sScript := 'print("Hello World!)'; // Ошибка, строка не закончена, нет второго "
      sFile := 'buffer.nut';
      lRet := sq_compilebuffer(lVM, PSQChar(sScript), Length(sScript) * SizeOf(SQChar), PSQChar(sFile), SQTrue);
      ShowMessage(lRet.ToString);
    finally
    sq_close(lVM);
    end;

sq_setprintfunc устанавливает коллбэки на с++ (SQPRINTFUNCTION) у меня объявлена так:

//где Сишный SQChar*(wchar_t*) это PWideChar паскаля, объявленный под именем PSQChar
  
  SQPRINTFUNCTION = procedure(aVM: HSQUIRRELVM; aString: PSQChar) varargs cdecl;

я специально гружу в VM строку с кодом где допущена ошибка.
Итог немного предсказуем:

Картинка

хотя если смотреть что делает вызов из самой С++ (приложив дебаггер к процессу):

Картинка

то видим что строка передаваемая через макрос _SC чутка длиннее и разнообразнее в плане букв.
это sqstdaux.cpp из sqstdlib потому что я передаю ему головную боль о форматировании ошибок VM через вызов sqstd_seterrorhandlers. И уже его колбэки сами вызывают переданные в VM мои колбэки на функции вывода ошибок и печати.

НО, если я изменю код в sqstdaux.cpp вот так:

Картинка

то моё приложение прекрасно получает то что я хочу:

Картинка

что это за магия?
Именно из-за неё мне надо обернуть все что принимает-отдает строки, в свои функции.
Чтобы завернуть возвращаемое строковое значение в const wchar_t* а то и с использованием LocalAlloc, потому что при простом использовании const wchar_t*, я не знаю кто управляет жизнью этих строк, и не утекают ли они в с++ или в delphi.
А ещё потому что sq_setprintfunc ждет передачи sprintf из мира С или чего-то схожего, а мне не хочется заниматься извлечением с++ varargs из стэка в паскале.

Что делает два шарпа в макросе _SC?
#define _SC(a) L##a
Почему

const SQChar* data = _SC("%s line = (%d) column = (%d) : error %s\n");
    if(pf) {
        pf(v,data,sSource,line,column,sErr);
    }

и

if(pf) {
        pf(v,_SC("%s line = (%d) column = (%d) : error %s\n"),sSource,line,column,sErr);
    }

дают разный результат?

Переписывать сторонний код мне не хочется вот совсем. Потому что потом я замучаюсь его обновлять :)
Потому родилась простая идея:
Берем с++, создаем DLL with exports для Windows,
собираю squirrel через cmake, копирую:
squirrel\include\
squirrel\CmakeBuildOut\lib\{$ConfigurationName}\

в подпапку "squirrel" моей DLL
подключаю squirrel.lib к своей dll.
Ещё cmake умеет генерировать статические версии squirrel и sqstdlib в чем будет разница между squirrel.lib и squirrel_static.lib?
Upd: ничего кроме того что увеличивает размер моей dll до +/- того что есть у squirrel.dll

дальше есть например проблемная функция:

SQUIRREL_API const SQChar *sq_objtostring(const HSQOBJECT *o);

которая возвращает мне строку из вирт. машины.
я делаю функцию:

DLL_API const SQChar* wsq_objtostring(const HSQOBJECT *o) {
   SQChar* buff;
   const SQChar* data = sq_objtostring(o);
   const size_t needed = wcslen(data) + 1;
    buff = static_cast<SQChar*>(LocalAlloc(LMEM_FIXED, needed));
    if (buff)
        std::copy_n(data, needed, buff);
   return buff;
}

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

Но ведь есть и функции которые к строкам отношения не имеют и будут работать.

SQUIRREL_API SQBool sq_objtobool(const HSQOBJECT *o);
SQUIRREL_API SQInteger sq_objtointeger(const HSQOBJECT *o);
SQUIRREL_API SQFloat sq_objtofloat(const HSQOBJECT *o);
SQUIRREL_API SQUserPointer sq_objtouserpointer(const HSQOBJECT *o);
SQUIRREL_API SQRESULT sq_getobjtypetag(const HSQOBJECT *o,SQUserPointer * typetag);
SQUIRREL_API SQUnsignedInteger sq_getvmrefcount(HSQUIRRELVM v, const HSQOBJECT *po);

Оборачивать их мне не надо, НО:
Squirrel.dll которые рождается в результате деятельности cmake содержит в таблице экспорта все эти функции:

картинка

Моя dll2.dll куда подключен squirrel.lib и даже прописан include "squirel.h" почему-то экспортирует только мои функции:

картинка

я не буду писать обертки для всех функций которые экспортирует Squirrel.dll(описаны в squirel.h)
и раз уж я пишу свою DLL куда линкуется squirrel.lib то и держать параллельно оригинал и обертку мне тоже не надо. Как ре-экспортировать из моей dll то что описано в squirel.h?

[Станислав Макаров]

Александр + Ого, так вы ещё это всё и в Делфя прокидываете, неслабо.

Это никак влиять не должно априори т.к. dll это законченный продукт.

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

А что насчёт соглашений о вызове? У вас тут жесть в виде функции с переменным числом параметров. Есть ли уверенность, что соглашение одинаковое со стороны делфей и C?
По идее должно быть cdelc и со стороны библиотеки, но я бы перепроверил это.

[Станислав Макаров]

Что делает два шарпа в макросе _SC?
#define _SC(a) L##a

Это конкатенация того что перед ##, т.е. L в данном случае, и СОДЕРЖИМОГО a. Т.е. в вашем примере макрос раскроется в L"%s line = (%d) column = (%d) : error %s\n", т.е. в wide character literal.

[Александр +]

Станислав Макаров,

А что насчёт соглашений о вызове? У вас тут жесть в виде функции с переменным числом параметров. Есть ли уверенность, что соглашение одинаковое со стороны делфей и C?
По идее должно быть cdelc и со стороны библиотеки, но я бы перепроверил это.

код языка squirrel не передавался бы на компиляцию, будет это так.
Да, там везде cdecl. Выдирание Сишного varargs это тот ещё перформанс и он на результат не влияет особо.

Почему передача строки через макрос напрямую в callback выдает мне мусор, а передача в переменную а потом уже в callback - передается корректно?

void wsq_returnASSquirrelDoesA(UBERCPPCB cb)
{
    if (cb) {
        cb(_SC("gfjfgsjk,fghsgjbsnhsrjbtyhsrjktbsrktsnrtjksvrtsdrkjyjsknlrvtuknsrvtuknylsrtuynsrtyunsryuntsynlurtylnusvt\n"));
    }
}
void wsq_returnASSquirrelDoesB(UBERCPPCB cb)
{
    const wchar_t* data = _SC("gfjfgsjk,fghsgjbsnhsrjbtyhsrjktbsrktsnrtjksvrtsdrkjyjsknlrvtuknsrvtuknylsrtuynsrtyunsryuntsynlurtylnusvt\n");
    if (cb) {
        cb(data);
    }
}

callback везде тот же, а результат разный. Функция A передает мусор, функция Б передает строку нормально.