#!/bin/sh
set -C -e -f -u
cd "$ADTTMP"

cat > p.gpr <<EOF
with "dbus_ada";
project P is
   for Main use ("p.adb");
end P;
EOF
cat > p.adb <<EOF
with D_Bus;
procedure P is
   Bus : constant D_Bus.Bus_Type := D_Bus.Bus_Session;
begin
   null;
end P;
EOF
gprbuild -v p.gpr
./p
