73 lines
		
	
	
		
			1.3 KiB
		
	
	
	
		
			C
		
	
	
			
		
		
	
	
			73 lines
		
	
	
		
			1.3 KiB
		
	
	
	
		
			C
		
	
	
| // base symbols shared
 | |
| 
 | |
| #if defined(BASE_IMPLEMENTOR)
 | |
| 
 | |
| #include <stdio.h>
 | |
| 
 | |
| int x = 0;
 | |
| 
 | |
| void
 | |
| base_func(void){
 | |
|   printf("x = %d\n", x);
 | |
|   x += 1;
 | |
| }
 | |
| 
 | |
| #endif
 | |
| 
 | |
| 
 | |
| // dynamic function linkage protocol
 | |
| 
 | |
| #if defined(BASE_IMPLEMENTOR)
 | |
| 
 | |
| EXPORT_SYMBOL BASE_Funcs*
 | |
| base_export_functions(void){
 | |
|   static BASE_Funcs funcs = {0};
 | |
|   if (funcs.base_func == 0){
 | |
| #define X(N,R,P) funcs.N = N;
 | |
| #include "base.xlist.h"
 | |
| #undef X
 | |
|   }
 | |
|   return(&funcs);
 | |
| }
 | |
| 
 | |
| #endif
 | |
| 
 | |
| 
 | |
| #if !defined(BASE_IMPLEMENTOR)
 | |
| 
 | |
| #if OS_WINDOWS
 | |
| # include <Windows.h>
 | |
| #elif OS_LINUX
 | |
| # include <dlfcn.h>
 | |
| #endif
 | |
| 
 | |
| BEFORE_MAIN(base_dynamic_user_init){
 | |
|   BASE_Funcs *funcs = 0;
 | |
|   
 | |
| #if OS_WINDOWS
 | |
|   HMODULE module = LoadLibraryA("base.dll");
 | |
|   if (module != 0){
 | |
|     BASE_ExportFuncs *base_export_functions = (BASE_ExportFuncs*)GetProcAddress(module, "base_export_functions");
 | |
|     if (base_export_functions != 0){
 | |
|       funcs = base_export_functions();
 | |
|     }
 | |
|   }
 | |
| #elif OS_LINUX
 | |
|   void *module = dlopen("./base.so", RTLD_NOW);
 | |
|   if (module != 0){
 | |
|     BASE_ExportFuncs *base_export_functions = (BASE_ExportFuncs*)dlsym(module, "base_export_functions");
 | |
|     if (base_export_functions != 0){
 | |
|       funcs = base_export_functions();
 | |
|     }
 | |
|   }
 | |
| #else
 | |
| # error base_import_functions not completed for this OS
 | |
| #endif
 | |
|   
 | |
| #define X(N,R,P) N = funcs->N;
 | |
| #include "base.xlist.h"
 | |
| #undef X
 | |
| }
 | |
| 
 | |
| #endif
 |