kolibrios-gitea/programs/develop/ktcc/trunk/samples/load_coff.c
turbocat e08c6968ef ktcc: rollback to r9529
git-svn-id: svn://kolibrios.org@9558 a494cfbc-eb01-0410-851d-a64ba20cac60
2022-01-02 12:16:17 +00:00

22 lines
556 B
C

#include <dlfcn.h>
/*Using the "coff" library in ktcc using "inputbox.obj" as an example*/
unsigned (*InputBox)(void* Buffer, char* Caption, char* Prompt, char* Default, unsigned long Flags, unsigned long BufferSize, void* RedrawProc);
void *InputBoxLib;
void load_coff()
{
InputBoxLib = dlopen("/sys/lib/inputbox.obj", RTLD_GLOBAL);
InputBox = dlsym(InputBoxLib,"InputBox");
}
int main()
{
load_coff();
char buffer[256];
InputBox(buffer, "Hay!", "How do you do?", "Hmm?", 10, 256, 0);
dlclose(InputBoxLib);
}