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