1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
|
<?xml version='1.0' encoding='utf-8'?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html><head>
<meta http-equiv="Content-Type" content="application/xhtml+xml; charset=UTF-8" />
<meta http-equiv="Content-Script-Type" content="text/javascript"/>
<title>
File: alog-facilities-syslog.ads
</title>
<link rel='stylesheet' href='support/docgen.css' type='text/css'/>
<script src='support/docgen.js' type='text/javascript' charset='utf-8'></script>
</head>
<body onload="onloadDoc();">
<div id='leftSide'>
<div id='leftSideInside'>
<div id='header'>
<h2 class="button">Documentation</h2>
<a href='index.html'><div class="button2">Table of Contents</div></a>
<a href='tree.html'><div class="button2">Class Inheritance Tree</div></a>
</div>
</div>
</div> <!-- leftSide -->
<div class='subprograms'>
<div class='details'><ol><li id="l1"><pre><span class="comment">--</span> </pre></li>
<li id="l2"><pre><span class="comment">-- Copyright (c) 2008-2009,</span> </pre></li>
<li id="l3"><pre><span class="comment">-- Reto Buerki, Adrian-Ken Rueegsegger</span> </pre></li>
<li id="l4"><pre><span class="comment">-- secunet SwissIT AG</span> </pre></li>
<li id="l5"><pre><span class="comment">--</span> </pre></li>
<li id="l6"><pre><span class="comment">-- This file is part of Alog.</span> </pre></li>
<li id="l7"><pre><span class="comment">--</span> </pre></li>
<li id="l8"><pre><span class="comment">-- Alog is free software; you can redistribute it and/or modify</span> </pre></li>
<li id="l9"><pre><span class="comment">-- it under the terms of the GNU Lesser General Public License as published</span> </pre></li>
<li id="l10"><pre><span class="comment">-- by the Free Software Foundation; either version 2.1 of the License, or</span> </pre></li>
<li id="l11"><pre><span class="comment">-- (at your option) any later version.</span> </pre></li>
<li id="l12"><pre><span class="comment">--</span> </pre></li>
<li id="l13"><pre><span class="comment">-- Alog is distributed in the hope that it will be useful,</span> </pre></li>
<li id="l14"><pre><span class="comment">-- but WITHOUT ANY WARRANTY; without even the implied warranty of</span> </pre></li>
<li id="l15"><pre><span class="comment">-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the</span> </pre></li>
<li id="l16"><pre><span class="comment">-- GNU Lesser General Public License for more details.</span> </pre></li>
<li id="l17"><pre><span class="comment">--</span> </pre></li>
<li id="l18"><pre><span class="comment">-- You should have received a copy of the GNU Lesser General Public License</span> </pre></li>
<li id="l19"><pre><span class="comment">-- along with Alog; if not, write to the Free Software</span> </pre></li>
<li id="l20"><pre><span class="comment">-- Foundation, Inc., 51 Franklin St, Fifth Floor, Boston,</span> </pre></li>
<li id="l21"><pre><span class="comment">-- MA 02110-1301 USA</span> </pre></li>
<li id="l22"><pre> </pre></li>
<li id="l23"><pre><span class="comment">-- Syslog facility. Used to log to systems syslog. At the moment, this facility</span> </pre></li>
<li id="l24"><pre><span class="comment">-- is a thin binding to syslog function calls. The implementation attempts to</span> </pre></li>
<li id="l25"><pre><span class="comment">-- resemble the native libc-functions of your system, so that anyone being</span> </pre></li>
<li id="l26"><pre><span class="comment">-- familiar with syslog.h should be able to use this module right away.</span> </pre></li>
<li id="l27"><pre><span class="keyword">package</span> <span class="droplink">Alog.Facilities.Syslog<ul><li><a href="alog-facilities-syslog.ads.html#alog-facilities-syslog.ads:27:25" title="To API doc">To API doc</a></li><li><a href="src_alog-facilities-syslog.ads.html#l27" title="To spec">To spec</a></li><li><a href="src_alog-facilities-syslog.adb.html#l26" title="To body">To body</a></li></ul></span> <span class="keyword">is</span> </pre></li>
<li id="l28"><pre> </pre></li>
<li id="l29"><pre> <span class="keyword">type</span> <span class="droplink">Instance<ul><li><a href="alog-facilities-syslog.ads.html#alog-facilities-syslog.ads:29:9" title="To API doc">To API doc</a></li><li><a href="src_alog-facilities-syslog.ads.html#l62" title="To body">To body</a></li></ul></span> <span class="keyword">is</span> <span class="keyword">new</span> <span class="droplink">Alog.Facilities.Instance<ul><li><a href="alog-facilities.ads.html#alog-facilities.ads:38:9" title="To API doc">To API doc</a></li><li><a href="src_alog-facilities.ads.html#l38" title="To spec">To spec</a></li><li><a href="src_alog-facilities.ads.html#l127" title="To body">To body</a></li></ul></span> <span class="keyword">with</span> <span class="keyword">private</span>; </pre></li>
<li id="l30"><pre> <span class="comment">-- Syslog based logging facility.</span> </pre></li>
<li id="l31"><pre> </pre></li>
<li id="l32"><pre> <span class="keyword">type</span> <a href="alog-facilities-syslog.ads.html#alog-facilities-syslog.ads:32:9" title="defined at alog-facilities-syslog.ads:32:9">Handle</a> <span class="keyword">is</span> <span class="keyword">access</span> <span class="keyword">all</span> <span class="droplink">Instance<ul><li><a href="alog-facilities-syslog.ads.html#alog-facilities-syslog.ads:29:9" title="To API doc">To API doc</a></li><li><a href="src_alog-facilities-syslog.ads.html#l29" title="To spec">To spec</a></li><li><a href="src_alog-facilities-syslog.ads.html#l62" title="To body">To body</a></li></ul></span>; </pre></li>
<li id="l33"><pre> </pre></li>
<li id="l34"><pre> <span class="keyword">type</span> <a href="alog-facilities-syslog.ads.html#alog-facilities-syslog.ads:34:9" title="defined at alog-facilities-syslog.ads:34:9">S_Facility</a> <span class="keyword">is</span> </pre></li>
<li id="l35"><pre> (LOG_AUTH, </pre></li>
<li id="l36"><pre> LOG_USER, </pre></li>
<li id="l37"><pre> LOG_MAIL, </pre></li>
<li id="l38"><pre> LOG_DAEMON, </pre></li>
<li id="l39"><pre> LOG_SYSLOG, </pre></li>
<li id="l40"><pre> LOG_CRON); </pre></li>
<li id="l41"><pre> <span class="comment">-- Corresponding Ada-Implementation of syslogs "facility" parameter.</span> </pre></li>
<li id="l42"><pre> <span class="comment">-- Only the important/usable facilities are mapped.</span> </pre></li>
<li id="l43"><pre> </pre></li>
<li id="l44"><pre> <span class="keyword">for</span> <span class="droplink">S_Facility<ul><li><a href="alog-facilities-syslog.ads.html#alog-facilities-syslog.ads:34:9" title="To API doc">To API doc</a></li><li><a href="src_alog-facilities-syslog.ads.html#l34" title="To spec">To spec</a></li></ul></span> <span class="keyword">use</span> </pre></li>
<li id="l45"><pre> (LOG_AUTH => 0, </pre></li>
<li id="l46"><pre> LOG_USER => 8, </pre></li>
<li id="l47"><pre> LOG_MAIL => 16, </pre></li>
<li id="l48"><pre> LOG_DAEMON => 24, </pre></li>
<li id="l49"><pre> LOG_SYSLOG => 40, </pre></li>
<li id="l50"><pre> LOG_CRON => 72); </pre></li>
<li id="l51"><pre> <span class="comment">-- Facility map table.</span> </pre></li>
<li id="l52"><pre> </pre></li>
<li id="l53"><pre><span class="keyword">private</span> </pre></li>
<li id="l54"><pre> </pre></li>
<li id="l55"><pre> <span class="keyword">overriding</span> </pre></li>
<li id="l56"><pre> <span class="keyword">procedure</span> Write </pre></li>
<li id="l57"><pre> (Facility : <span class="droplink">Instance<ul><li><a href="alog-facilities-syslog.ads.html#alog-facilities-syslog.ads:29:9" title="To API doc">To API doc</a></li><li><a href="src_alog-facilities-syslog.ads.html#l29" title="To spec">To spec</a></li><li><a href="src_alog-facilities-syslog.ads.html#l62" title="To body">To body</a></li></ul></span>; </pre></li>
<li id="l58"><pre> Level : <span class="droplink">Log_Level<ul><li><a href="alog.ads.html#alog.ads:32:9" title="To API doc">To API doc</a></li><li><a href="src_alog.ads.html#l32" title="To spec">To spec</a></li></ul></span> := Info; </pre></li>
<li id="l59"><pre> Msg : String); </pre></li>
<li id="l60"><pre> <span class="comment">-- Implementation of the Write procedure for syslog.</span> </pre></li>
<li id="l61"><pre> </pre></li>
<li id="l62"><pre> <span class="keyword">type</span> <span class="droplink">Instance<ul><li><a href="alog-facilities-syslog.ads.html#alog-facilities-syslog.ads:29:9" title="To API doc">To API doc</a></li><li><a href="src_alog-facilities-syslog.ads.html#l29" title="To spec">To spec</a></li></ul></span> <span class="keyword">is</span> <span class="keyword">new</span> <span class="droplink">Alog.Facilities.Instance<ul><li><a href="alog-facilities.ads.html#alog-facilities.ads:38:9" title="To API doc">To API doc</a></li><li><a href="src_alog-facilities.ads.html#l38" title="To spec">To spec</a></li><li><a href="src_alog-facilities.ads.html#l127" title="To body">To body</a></li></ul></span> <span class="keyword">with</span> <span class="keyword">null</span> <span class="keyword">record</span>; </pre></li>
<li id="l63"><pre> </pre></li>
<li id="l64"><pre><span class="keyword">end</span> <span class="droplink">Alog.Facilities.Syslog<ul><li><a href="alog-facilities-syslog.ads.html#alog-facilities-syslog.ads:27:25" title="To API doc">To API doc</a></li><li><a href="src_alog-facilities-syslog.ads.html#l27" title="To spec">To spec</a></li><li><a href="src_alog-facilities-syslog.adb.html#l26" title="To body">To body</a></li></ul></span>; </pre></li>
</ol></div>
</div>
</body>
</html>
|
