ThomasLocke

with Ada.Text_IO; use Ada.Text_IO;

procedure HelloWorld is
   
   HW  : constant String := "Hello, world!";
   
begin
   
   Put_Line (HW);
   

ThomasLocke

From 0834478f52d58f60d702a636df7b5db2807e9fd7 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Thomas=20L=C3=B8cke?= <thomas@12boo.net>
Date: Tue, 8 Nov 2011 16:47:34 +0100
Subject: [PATCH] Added support for external log handlers.

The primary goal is to be able to let something like syslog handle the AWS log
data, but it can also  be used for adding log data to a database or what else
you can come up with.

The important thing is to be able to relieve AWS from it's log writing duties.

ThomasLocke

/* Wrapper for syslog (needed by gnatcoll-traces-syslog.adb) */
#include <syslog.h>

void 
syslog_wrapper(int priority, const char *log_message)
{
  syslog(priority, "%s", log_message);
}

ThomasLocke

--- gnatlib/src/syslog/gnatcoll-traces-syslog.adb	2011-11-24 21:42:54.680002883 +0100
+++ gnatlib_new/src/syslog/gnatcoll-traces-syslog.adb	2011-11-24 12:10:24.080001517 +0100
@@ -80,8 +80,6 @@
    --       we need to be able to combine levels and facilities in the call
    --       to syslog...
 
-   Percent_S : constant String := "%s" & ASCII.NUL;
-
    type Syslog_Stream_Record is new Trace_Stream_Record with record
       Buffer   : Unbounded_String;

ThomasLocke

From 4e5765f68f37b2f770804fa394117d0e62f9bc9d Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Thomas=20L=C3=B8cke?= <thomas@12boo.net>
Date: Wed, 11 Jan 2012 17:08:52 +0100
Subject: [PATCH] Both of these searched the cookie strings in a very weak and
 error prone manner. This has been updated to instead use
 some of the available AWS tools so it's now much more
 reliable.

Also did some minor tweaks to the Get functions that convert string values to
Integer and Float.

ThomasLocke

From a3a1d6c6c6b00c4386710f59a2939b84a40455f0 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Thomas=20L=C3=B8cke?= <thomas@12boo.net>
Date: Sun, 22 Jan 2012 15:34:29 +0100
Subject: [PATCH] Fix constraint error when bind fails due to bad server.

Instead of getting a useless CONSTRAINT_ERROR exception, we now get a proper
LDAP_ERROR exception with the message "Can't contact LDAP server".
---
 src/ldap/aws-ldap-client.adb |   21 ++++++++++++++++++---
 src/ldap/aws-ldap-thin.ads   |    4 +++-

ThomasLocke

{
    "servers": [
        {
            "host": "alpha",
            "password": "secret",
            "base_dn": "dc=example,dc=com",
            "user_dn": "cn=Directory Manager",
            "active": "true"
        },
        {

ThomasLocke

import XMonad
import XMonad.Actions.CycleWS      -- cycle thru WS', toggle last WS
import XMonad.Hooks.DynamicLog     -- statusbar 
import XMonad.Hooks.ManageDocks    -- dock/tray mgmt
import XMonad.Util.EZConfig        -- append key/mouse bindings
import XMonad.Util.Run(spawnPipe)  -- spawnPipe and hPutStrLn
import System.IO

myLogHook dest = dynamicLogWithPP defaultPP { ppOutput = hPutStrLn dest
                                            ,ppVisible = wrap "(" ")"

ThomasLocke

From f566fc2ed1a8073d3384b197322d6ed49372e584 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Thomas=20L=C3=B8cke?= <thomas@12boo.net>
Date: Mon, 6 Feb 2012 14:45:08 +0100
Subject: [PATCH] Added support for negative numbers to AWS.Utils.Is_Number

---
 src/core/aws-utils.adb |   11 ++++++++++-
 src/core/aws-utils.ads |    7 +++++--
 2 files changed, 15 insertions(+), 3 deletions(-)

ThomasLocke

Query := SQL_Select
     (Fields        =>
        Organization.Org_Id &
        Organization.Org_Name &
        Organization.Sip_Uri &
        Contactentity.Ce_Id &
        Contactentity.Ce_Name &
        Contactentity.Isperson &
        Tag.Tag_Id &
        Tag.Tag_Name,