Rombobjörn

summaryrefslogtreecommitdiff
path: root/milter_api-start_wrapping.on.adb
diff options
context:
space:
mode:
Diffstat (limited to 'milter_api-start_wrapping.on.adb')
-rw-r--r--milter_api-start_wrapping.on.adb20
1 files changed, 20 insertions, 0 deletions
diff --git a/milter_api-start_wrapping.on.adb b/milter_api-start_wrapping.on.adb
new file mode 100644
index 0000000..7eb699c
--- /dev/null
+++ b/milter_api-start_wrapping.on.adb
@@ -0,0 +1,20 @@
+-- Ada Milter API, a binding to Libmilter, the Sendmail mail filtering API
+-- Copyright 2013 B. Persson, Bjorn@Rombobeorn.se
+--
+-- This library is free software: you can redistribute it and/or modify it
+-- under the terms of the GNU General Public License version 3, as published
+-- by the Free Software Foundation.
+
+
+-- Thread wrapping is enabled when this file is used, so Start_Wrapping calls
+-- start_wrapping_threads in libadamilter_thread_wrapper, which must be linked
+-- into the main executable.
+
+
+separate(Milter_API)
+procedure Start_Wrapping is
+ procedure start_wrapping_threads;
+ pragma import(C, start_wrapping_threads);
+begin
+ start_wrapping_threads;
+end Start_Wrapping;