/usr/share/ada/adainclude/apq-postgresql/notices.c is in libapq-postgresql3.2.0-dev 3.2.0-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 | /****************************************************************************/
/* APQ DATABASE BINDINGS */
/* */
/* A P Q - POSTGRESQL */
/* */
/* B o d y */
/* */
/* Copyright (C) 2002-2007, Warren W. Gay VE3WWG */
/* Copyright (C) 2007-2009, Ada Works Project */
/* */
/* */
/* APQ is free software; you can redistribute it and/or modify it under */
/* terms of the GNU General Public License as published by the Free Soft- */
/* ware Foundation; either version 2, or (at your option) any later ver- */
/* sion. APQ is distributed in the hope that it will be useful, but WITH- */
/* OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY */
/* or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License */
/* for more details. You should have received a copy of the GNU General */
/* Public License distributed with APQ; see file COPYING. If not, write */
/* to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, */
/* MA 02111-1307, USA. */
/* */
/* As a special exception, if other files instantiate generics from this */
/* unit, or you link this unit with other files to produce an executable, */
/* this unit does not by itself cause the resulting executable to be */
/* covered by the GNU General Public License. This exception does not */
/* however invalidate any other reasons why the executable file might be */
/* covered by the GNU Public License. */
/****************************************************************************/
#include <stdio.h>
#include <libpq-fe.h>
/*
* Connection_Notify is an Ada procedure using C calling convention :
*/
extern void Connection_Notify(void *arg,const char *message);
/*
* A do-nothing notices callback :
*/
static void
notices_dud(void *arg,const char *message) {
return;
}
/*
* Install a new notices callback :
*/
void
notice_install(PGconn *conn,void *ada_obj_ptr) {
PQsetNoticeProcessor(conn,Connection_Notify,ada_obj_ptr);
}
/*
* Disable callbacks to the Connection_Notify Ada procedure :
*/
void
notice_uninstall(PGconn *conn) {
PQsetNoticeProcessor(conn,notices_dud,NULL);
}
/* End $Source: /cvsroot/apq/apq/notices.c,v $ */
|