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
|
<?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-transforms-casing.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,</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><span class="comment">--</span> </pre></li>
<li id="l23"><pre> </pre></li>
<li id="l24"><pre><span class="comment">-- Casing transform. Used to transform casing (lower/uppercase) of messages</span> </pre></li>
<li id="l25"><pre><span class="keyword">package</span> <span class="droplink">Alog.Transforms.Casing<ul><li><a href="alog-transforms-casing.ads.html#alog-transforms-casing.ads:25:25" title="To API doc">To API doc</a></li><li><a href="src_alog-transforms-casing.ads.html#l25" title="To spec">To spec</a></li><li><a href="src_alog-transforms-casing.adb.html#l26" title="To body">To body</a></li></ul></span> <span class="keyword">is</span> </pre></li>
<li id="l26"><pre> </pre></li>
<li id="l27"><pre> <span class="keyword">type</span> <a href="alog-transforms-casing.ads.html#alog-transforms-casing.ads:27:9" title="defined at alog-transforms-casing.ads:27:9">Operation_Mode</a> <span class="keyword">is</span> (Uppercase, Lowercase); </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-transforms-casing.ads.html#alog-transforms-casing.ads:29:9" title="To API doc">To API doc</a></li><li><a href="src_alog-transforms-casing.ads.html#l49" title="To body">To body</a></li></ul></span> <span class="keyword">is</span> <span class="keyword">new</span> <span class="droplink">Alog.Transforms.Instance<ul><li><a href="alog-transforms.ads.html#alog-transforms.ads:31:9" title="To API doc">To API doc</a></li><li><a href="src_alog-transforms.ads.html#l31" title="To spec">To spec</a></li><li><a href="src_alog-transforms.ads.html#l72" 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">-- Casing transform.</span> </pre></li>
<li id="l31"><pre> </pre></li>
<li id="l32"><pre> <span class="keyword">type</span> <a href="alog-transforms-casing.ads.html#alog-transforms-casing.ads:32:9" title="defined at alog-transforms-casing.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-transforms-casing.ads.html#alog-transforms-casing.ads:29:9" title="To API doc">To API doc</a></li><li><a href="src_alog-transforms-casing.ads.html#l29" title="To spec">To spec</a></li><li><a href="src_alog-transforms-casing.ads.html#l49" title="To body">To body</a></li></ul></span>; </pre></li>
<li id="l33"><pre> </pre></li>
<li id="l34"><pre> <span class="keyword">overriding</span> </pre></li>
<li id="l35"><pre> <span class="keyword">function</span> <span class="droplink">Transform_Message<ul><li><a href="alog-transforms-casing.ads.html#alog-transforms-casing.ads:35:13" title="To API doc">To API doc</a></li><li><a href="src_alog-transforms-casing.adb.html#l40" title="To body">To body</a></li></ul></span> </pre></li>
<li id="l36"><pre> (<span class="droplink">Transform<ul><li><a href="alog-transforms-casing.ads.html#alog-transforms-casing.ads:36:7" title="To API doc">To API doc</a></li><li><a href="src_alog-transforms-casing.adb.html#l41" title="To body">To body</a></li></ul></span> : <span class="droplink">Instance<ul><li><a href="alog-transforms-casing.ads.html#alog-transforms-casing.ads:29:9" title="To API doc">To API doc</a></li><li><a href="src_alog-transforms-casing.ads.html#l29" title="To spec">To spec</a></li><li><a href="src_alog-transforms-casing.ads.html#l49" title="To body">To body</a></li></ul></span>; </pre></li>
<li id="l37"><pre> <span class="droplink">Level<ul><li><a href="alog-transforms-casing.ads.html#alog-transforms-casing.ads:37:7" title="To API doc">To API doc</a></li><li><a href="src_alog-transforms-casing.adb.html#l42" title="To body">To body</a></li></ul></span> : <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="l38"><pre> <a href="alog-transforms-casing.ads.html#alog-transforms-casing.ads:38:7" title="defined at alog-transforms-casing.ads:38:7">Msg</a> : String) </pre></li>
<li id="l39"><pre> <span class="keyword">return</span> String; </pre></li>
<li id="l40"><pre> <span class="comment">-- Implementation of Transform_Message.</span> </pre></li>
<li id="l41"><pre> </pre></li>
<li id="l42"><pre> <span class="keyword">procedure</span> <span class="droplink">Set_Mode<ul><li><a href="alog-transforms-casing.ads.html#alog-transforms-casing.ads:42:14" title="To API doc">To API doc</a></li><li><a href="src_alog-transforms-casing.adb.html#l30" title="To body">To body</a></li></ul></span> </pre></li>
<li id="l43"><pre> (<span class="droplink">Transform<ul><li><a href="alog-transforms-casing.ads.html#alog-transforms-casing.ads:43:7" title="To API doc">To API doc</a></li><li><a href="src_alog-transforms-casing.adb.html#l31" title="To body">To body</a></li></ul></span> : <span class="keyword">in</span> <span class="keyword">out</span> <span class="droplink">Instance<ul><li><a href="alog-transforms-casing.ads.html#alog-transforms-casing.ads:29:9" title="To API doc">To API doc</a></li><li><a href="src_alog-transforms-casing.ads.html#l29" title="To spec">To spec</a></li><li><a href="src_alog-transforms-casing.ads.html#l49" title="To body">To body</a></li></ul></span>; </pre></li>
<li id="l44"><pre> <span class="droplink">Mode<ul><li><a href="alog-transforms-casing.ads.html#alog-transforms-casing.ads:44:7" title="To API doc">To API doc</a></li><li><a href="src_alog-transforms-casing.adb.html#l32" title="To body">To body</a></li></ul></span> : <span class="droplink">Operation_Mode<ul><li><a href="alog-transforms-casing.ads.html#alog-transforms-casing.ads:27:9" title="To API doc">To API doc</a></li><li><a href="src_alog-transforms-casing.ads.html#l27" title="To spec">To spec</a></li></ul></span>); </pre></li>
<li id="l45"><pre> <span class="comment">-- Set operation mode of transform.</span> </pre></li>
<li id="l46"><pre> </pre></li>
<li id="l47"><pre><span class="keyword">private</span> </pre></li>
<li id="l48"><pre> </pre></li>
<li id="l49"><pre> <span class="keyword">type</span> <span class="droplink">Instance<ul><li><a href="alog-transforms-casing.ads.html#alog-transforms-casing.ads:29:9" title="To API doc">To API doc</a></li><li><a href="src_alog-transforms-casing.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.Transforms.Instance<ul><li><a href="alog-transforms.ads.html#alog-transforms.ads:31:9" title="To API doc">To API doc</a></li><li><a href="src_alog-transforms.ads.html#l31" title="To spec">To spec</a></li><li><a href="src_alog-transforms.ads.html#l72" title="To body">To body</a></li></ul></span> <span class="keyword">with</span> <span class="keyword">record</span> </pre></li>
<li id="l50"><pre> Mode : <span class="droplink">Operation_Mode<ul><li><a href="alog-transforms-casing.ads.html#alog-transforms-casing.ads:27:9" title="To API doc">To API doc</a></li><li><a href="src_alog-transforms-casing.ads.html#l27" title="To spec">To spec</a></li></ul></span> := Lowercase; </pre></li>
<li id="l51"><pre> <span class="comment">-- Mode of operation.</span> </pre></li>
<li id="l52"><pre> <span class="keyword">end</span> <span class="keyword">record</span>; </pre></li>
<li id="l53"><pre> </pre></li>
<li id="l54"><pre><span class="keyword">end</span> <span class="droplink">Alog.Transforms.Casing<ul><li><a href="alog-transforms-casing.ads.html#alog-transforms-casing.ads:25:25" title="To API doc">To API doc</a></li><li><a href="src_alog-transforms-casing.ads.html#l25" title="To spec">To spec</a></li><li><a href="src_alog-transforms-casing.adb.html#l26" title="To body">To body</a></li></ul></span>; </pre></li>
</ol></div>
</div>
</body>
</html>
|
