From 638f5166cce43f0d9421a72e3669b13fa0b47567 Mon Sep 17 00:00:00 2001 From: Björn Persson Date: Mon, 21 Jan 2013 13:04:06 +0100 Subject: Added exit codes. --- berkeley_exit_codes.ads | 115 ++++++++++++++++++++++++++++++++++++++++++++++++ build_milter_api.gpr | 2 +- 2 files changed, 116 insertions(+), 1 deletion(-) create mode 100644 berkeley_exit_codes.ads diff --git a/berkeley_exit_codes.ads b/berkeley_exit_codes.ads new file mode 100644 index 0000000..cf6eb93 --- /dev/null +++ b/berkeley_exit_codes.ads @@ -0,0 +1,115 @@ +-- Exit codes for system programs +-- Copyright 2013 B. Persson, Bjorn@Rombobeorn.se +-- +-- This library is free software: you can redistribute it and/or modify it +-- under the terms of the GNU General Public License version 3, as published +-- by the Free Software Foundation. + + +with Ada.Command_Line; + +package Berkeley_Exit_Codes is + + -- This package defines exit codes corresponding to those defined in + -- sysexits.h from BSD. It is suggested that milters should use these exit + -- codes where it makes sense, in addition to those in Ada.Command_Line, + -- and maybe other ranges for other kinds of errors. The meaning of each + -- code is approximately described below. + + subtype Exit_Code is Ada.Command_Line.Exit_Status range 64 .. 78; + -- Exit_Status'First = EX__BASE, Exit_Status'Last = EX__MAX + + Usage_Error : constant Exit_Code := 64; -- EX_USAGE + -- The command was used incorrectly, e.g., with the wrong number of + -- arguments, a bad flag, a bad syntax in a parameter, or whatever. + + Data_Format_Error : constant Exit_Code := 65; -- EX_DATAERR + -- The input data was incorrect in some way. This should only be used for + -- users' data and not for system files. + + Cannot_Open_Input : constant Exit_Code := 66; -- EX_NOINPUT + -- An input file (not a system file) did not exist or was not readable. + -- This could also include errors like "no message" to a mailer (if it cared + -- to catch it). + + Unknown_User : constant Exit_Code := 67; -- EX_NOUSER + -- The user specified did not exist. This might be used for mail addresses + -- or remote logins. + + Unknown_Host : constant Exit_Code := 68; -- EX_NOHOST + -- The host specified did not exist. This is used for mail addresses or + -- network requests. + + Service_Unavailable : constant Exit_Code := 69; -- EX_UNAVAILABLE + -- A service is unavailable. This can occur if a support program or file + -- does not exist. This can also be used as a catchall message when + -- something you wanted to do doesn't work, but you don't know why. + + Software_Error : constant Exit_Code := 70; -- EX_SOFTWARE + -- An internal software error has been detected. This should be limited to + -- non-operating system related errors as possible. + + OS_Error : constant Exit_Code := 71; -- EX_OSERR + -- An operating system error has been detected. This is intended to be used + -- for such things as "cannot fork", "cannot create pipe", or the like. It + -- includes things like getuid returning a user that does not exist in the + -- passwd file. + + OS_File_Error : constant Exit_Code := 72; -- EX_OSFILE + -- Some system file (e.g., /etc/passwd, /etc/utmp, etc.) does not exist, + -- cannot be opened, or has some sort of error (e.g., syntax error). + + Cannot_Create_File : constant Exit_Code := 73; -- EX_CANTCREAT + -- A (user specified) output file cannot be created. + + IO_Error : constant Exit_Code := 74; -- EX_IOERR + -- An error occurred while doing I/O on some file. + + Temporary_Failure : constant Exit_Code := 75; -- EX_TEMPFAIL + -- Temporary failure indicates something that is not really an error. In + -- Sendmail, this means that a mailer (e.g.) could not create a connection, + -- and the request should be reattempted later. + + Protocol_Error : constant Exit_Code := 76; -- EX_PROTOCOL + -- The remote system returned something that was "not possible" during a + -- protocol exchange. + + Permission_Denied : constant Exit_Code := 77; -- EX_NOPERM + -- You did not have sufficient permission to perform the operation. This is + -- not intended for file system problems, which should use Cannot_Open_Input + -- or Cannot_Create_File, but rather for higher level permissions. + + Configuration_Error : constant Exit_Code := 78; -- EX_CONFIG + +end Berkeley_Exit_Codes; + + +-- The descriptions of the exit codes were copied from sysexits.h, which +-- contained the following text: +-- +-- Copyright (c) 1987, 1993 +-- The Regents of the University of California. All rights reserved. +-- +-- Redistribution and use in source and binary forms, with or without +-- modification, are permitted provided that the following conditions +-- are met: +-- 1. Redistributions of source code must retain the above copyright +-- notice, this list of conditions and the following disclaimer. +-- 2. Redistributions in binary form must reproduce the above copyright +-- notice, this list of conditions and the following disclaimer in the +-- documentation and/or other materials provided with the distribution. +-- 4. Neither the name of the University nor the names of its contributors +-- may be used to endorse or promote products derived from this software +-- without specific prior written permission. +-- +-- THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND +-- ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE +-- IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE +-- ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE +-- FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL +-- DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS +-- OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) +-- HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT +-- LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY +-- OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF +-- SUCH DAMAGE. diff --git a/build_milter_api.gpr b/build_milter_api.gpr index 492884b..a6d7245 100644 --- a/build_milter_api.gpr +++ b/build_milter_api.gpr @@ -25,7 +25,7 @@ project Build_Milter_API is -- they won't conflict with each other. for Object_Dir use "obj/" & Directories.Hardware_Platform; - for Library_Interface use ("Milter_API"); + for Library_Interface use ("Milter_API", "Berkeley_Exit_Codes"); for Languages use ("Ada", "C"); package Compiler is -- cgit v1.2.3