1{******************************************************************* 2* Test library of the Apache Pascal Headers 3*******************************************************************} 4library testmodule; 5 6{$i define.inc} 7 8{******************************************************************* 9* Assembler code to export variables on UNIXes 10*******************************************************************} 11uses 12 httpd, 13 minimain in 'minimain.pas'; 14 15var 16 test_module: module; {$ifdef Unix} public name 'test_module'; {$endif} 17 default_module_ptr: Pmodule; 18 19{******************************************************************* 20* Free Pascal only supports exporting variables on Windows 21*******************************************************************} 22{$ifdef WINDOWS} 23exports 24 test_module name 'test_module'; 25{$endif} 26 27{******************************************************************* 28* Library initialization code 29*******************************************************************} 30begin 31 default_module_ptr := @test_module; 32 FillChar(default_module_ptr^, SizeOf(default_module_ptr^), 0); 33 with default_module_ptr^ do begin 34 version := MODULE_MAGIC_NUMBER_MAJOR; 35 minor_version := MODULE_MAGIC_NUMBER_MINOR; 36 module_index := -1; 37 name := 'testmodule.so'; 38 magic := MODULE_MAGIC_COOKIE; 39 register_hooks := @RegisterHooks; 40 end; 41end. 42 43