--| --|Item: Ada PCTE Binding --|$Revision: 0.2 $ --|$State: Prototype $ --| --|The Version Description Document (VDD) included with this release provides --|detailed information regarding the condition of the software. The "User --|Feedback" section of the VDD describes how to obtain additional information. --| --|Distribution Statement "A", per DoD Directive 5230.24 --|Authorized for public release; distribution is unlimited. --| --|Copyright (c) 1992, Paramax Systems Corporation, Reston, Virginia --|Copyright is assigned to the U.S. Government, upon delivery thereto, --|in accordance with the DFAR Special Works Clause. --| --|Developed by: Paramax Systems Corporation, --| --|This software, developed under the Software Technology for Adaptable, --|Reliable Systems (STARS) program, is approved for release under --|Distribution "A" of the Scientific and Technical Information Program --|Classification Scheme (DoD Directive 5230.24) unless otherwise indicated. --|Sponsored by the U.S. Defense Advanced Research Projects Agency (DARPA) --|under contract F19628-88-D-0031, the STARS program is supported by the --|military services, SEI, and MITRE, with the U.S. Air Force as the executive --|contracting agent. --| --|Permission to use, copy, modify, and comment on this software and its --|documentation for purposes stated under Distribution "A" and without fee --|is hereby granted, provided that this notice appears in each whole or --|partial copy. This software retains Contractor indemnification to --|the Government regarding copyrights pursuant to the above referenced --|STARS contract. The Government disclaims all responsibility against --|liability, including costs and expenses for violation of proprietary --|rights, or copyrights arising out of the creation or use of this --|software. --| --|In addition, the Government, Paramax, and its subcontractors disclaim all --|warranties with regard to this software, including all implied warranties --|of merchantability and fitness, and in no event shall the Government, --|Paramax, or its subcontractor(s) be liable for any special, indirect or --|consequential damages or any damages whatsoever resulting from the loss of --|use, data, or profits, whether in action of contract, negligence or other --|tortious action, arising in connection with the use or performance of this --|software. --| --|$Log $ --| -- Version Information -- ^^^^^^^^^^^^^^^^^^^ -- -- PCTE - Ada Language Interface. -- Version: 0.2. -- Release Date: November 30, 1992. -- Compiled under SUN OS 4.1.2 using SunAda 1.0 -- -- -- General Information -- ^^^^^^^^^^^^^^^^^^^ -- -- This is an alpha release of the Paramax STARS Ada binding to Emeraude's -- PCTE 1.5 using the ECMA PCTE Ada binding specifications. The binding -- is incomplete in this release. See the Version Description Document -- provided with this alpha release for information on which interfaces -- have been implemented. It is expected that future releases will -- expand the number of interfaces implemented. The interfaces defined -- herein are subject to change. -- -- For further information, contact the authors: -- -- -- Robert Smith -- Paramax Systems Corp. -- Valley Forge Labs -- 70 E. Swedesford Road -- Paoli, PA. 19301 -- smith@prc.unisys.com (current) -- smith@vfl.paramax.com (future) -- +1 215 648-2402 -- -- Michael Horton -- Paramax Systems Corp. -- Valley Forge Labs -- 70 E. Swedesford Road -- Paoli, PA. 19301 -- horton@prc.unisys.com (current) -- horton@vfl.paramax.com (future) -- +1 215 648-2527 -- -- with system; package errors_c is -- system errnos from /errno.h EPERM : constant integer := 1; -- Not owner ENOENT : constant integer := 2; -- No such file or directory ESRCH : constant integer := 3; -- No such process EINTR : constant integer := 4; -- Interrupted system call EIO : constant integer := 5; -- I/O error ENXIO : constant integer := 6; -- No such device or address E2BIG : constant integer := 7; -- Arg list too long ENOEXEC : constant integer := 8; -- Exec format error EBADF : constant integer := 9; -- Bad file number ECHILD : constant integer := 10; -- No children EAGAIN : constant integer := 11; -- No more processes ENOMEM : constant integer := 12; -- Not enough core EACCES : constant integer := 13; -- Permission denied EFAULT : constant integer := 14; -- Bad address ENOTBLK : constant integer := 15; -- Block device required EBUSY : constant integer := 16; -- Mount device busy EEXIST : constant integer := 17; -- File exists EXDEV : constant integer := 18; -- Cross-device link ENODEV : constant integer := 19; -- No such device ENOTDIR : constant integer := 20; -- Not a directory EISDIR : constant integer := 21; -- Is a directory EINVAL : constant integer := 22; -- Invalid argument ENFILE : constant integer := 23; -- File table overflow EMFILE : constant integer := 24; -- Too many open files ENOTTY : constant integer := 25; -- Not a typewriter ETXTBSY : constant integer := 26; -- Text file busy EFBIG : constant integer := 27; -- File too large ENOSPC : constant integer := 28; -- No space left on device ESPIPE : constant integer := 29; -- Illegal seek EROFS : constant integer := 30; -- Read-only file system EMLINK : constant integer := 31; -- Too many links EPIPE : constant integer := 32; -- Broken pipe -- math software EDOM : constant integer := 33; -- Argument too large ERANGE : constant integer := 34; -- Result too large -- non-blocking and interrupt i/o EWOULDBLOCK : constant integer := 35; -- Operation would block EINPROGRESS : constant integer := 36; -- Operation now in progress EALREADY : constant integer := 37; -- Operation already in progress -- ipc/network software -- argument errors ENOTSOCK : constant integer := 38; -- Socket operation on non-socket EDESTADDRREQ : constant integer := 39; -- Destination address required EMSGSIZE : constant integer := 40; -- Message too long EPROTOTYPE : constant integer := 41; -- Protocol wrong type for socket ENOPROTOOPT : constant integer := 42; -- Protocol not available EPROTONOSUPPORT : constant integer := 43; -- Protocol not supported ESOCKTNOSUPPORT : constant integer := 44; -- Socket type not supported EOPNOTSUPP : constant integer := 45; -- Operation not supported on socket EPFNOSUPPORT : constant integer := 46; -- Protocol family not supported EAFNOSUPPORT : constant integer := 47; -- Address family not supported by protocol family EADDRINUSE : constant integer := 48; -- Address already in use EADDRNOTAVAIL : constant integer := 49; -- Can't assign requested address -- operational errors ENETDOWN : constant integer := 50; -- Network is down ENETUNREACH : constant integer := 51; -- Network is unreachable ENETRESET : constant integer := 52; -- Network dropped connection on reset ECONNABORTED : constant integer := 53; -- Software caused connection abort ECONNRESET : constant integer := 54; -- Connection reset by peer ENOBUFS : constant integer := 55; -- No buffer space available EISCONN : constant integer := 56; -- Socket is already connected ENOTCONN : constant integer := 57; -- Socket is not connected ESHUTDOWN : constant integer := 58; -- Can't send after socket shutdown ETOOMANYREFS : constant integer := 59; -- Too many references: can't splice ETIMEDOUT : constant integer := 60; -- Connection timed out ECONNREFUSED : constant integer := 61; -- Connection refused -- ELOOP : constant integer := 62; -- Too many levels of symbolic links ENAMETOOLONG : constant integer := 63; -- File name too long -- should be rearranged EHOSTDOWN : constant integer := 64; -- Host is down EHOSTUNREACH : constant integer := 65; -- No route to host ENOTEMPTY : constant integer := 66; -- Directory not empty -- quotas & mush EPROCLIM : constant integer := 67; -- Too many processes EUSERS : constant integer := 68; -- Too many users EDQUOT : constant integer := 69; -- Disc quota exceeded -- Network File System ESTALE : constant integer := 70; -- Stale NFS file handle EREMOTE : constant integer := 71; -- Too many levels of remote in path -- streams ENOSTR : constant integer := 72; -- Device is not a stream ETIME : constant integer := 73; -- Timer expired ENOSR : constant integer := 74; -- Out of streams resources ENOMSG : constant integer := 75; -- No message of desired type EBADMSG : constant integer := 76; -- Trying to read unreadable message -- SystemV IPC EIDRM : constant integer := 77; -- Identifier removed -- SystemV Record Locking EDEADLK : constant integer := 78; -- Deadlock condition. ENOLCK : constant integer := 79; -- No record locks available. -- RFS ENONET : constant integer := 80; -- Machine is not on the network ERREMOTE : constant integer := 81; -- Object is remote ENOLINK : constant integer := 82; -- the link has been severed EADV : constant integer := 83; -- advertise error ESRMNT : constant integer := 84; -- srmount error ECOMM : constant integer := 85; -- Communication error on send EPROTO : constant integer := 86; -- Protocol error EMULTIHOP : constant integer := 87; -- multihop attempted EDOTDOT : constant integer := 88; -- Cross mount point (not an error) EREMCHG : constant integer := 89; -- Remote address changed -- POSIX ENOSYS : constant integer := 90; -- function not implemented -- errnos from pcte 1.5 errors.h */ -- pcte error codes equal to Unix codes */ -- -- PROBLEME ENOLINK est deja un code d'erreur sur SUN ELTYPE : constant integer := ENOTDIR; -- Invalid link type EOTYPE : constant integer := EISDIR; -- Invalid object type EROV : constant integer := EROFS; -- Read-only mounted volume -- ERREURS PCTE 1.5 ENOEXIST : constant integer := 134; ENOTCNCT : constant integer := 133; ENOCNCT : constant integer := ENOTCNCT; ECONCT : constant integer := ENOTCNCT; ECNCT : constant integer := ENOTCNCT; EADMIN : constant integer := 132; ENOTSELECTED : constant integer := 131; ETYPEREF : constant integer := 130; -- ERREURS normalement UNIX d'apres la doc PCTE EDEADLOCK : constant integer := 113; -- a SIGLOCK signal was caught EINUSE : constant integer := 110; -- the resource is being operated on ENOOBJ : constant integer := 109; -- the object does not exist -- ERREURS PCTE repertorie'es dans errors.h de PCTE ENOSITE : constant integer := 128; -- invalid exec site ENOMOUNT : constant integer := 127; -- access request on unmounted volume EREFOBJ : constant integer := 126; -- Invalid reference object ESTABLE : constant integer := 125; -- "w" access request on stable object ENOSTABLE : constant integer := 124; -- stable link to not stable object ECATEGORY : constant integer := 123; -- bad link type category EKEY : constant integer := 122; -- syntax error in a key EDEL : constant integer := 121; -- deletion conditions not satisfied EATYPE : constant integer := 120; -- Invalid attribute type ENOTVOL : constant integer := 119; -- the object type is not volume EBADSDS : constant integer := 118; -- invalid open SDS descriptor ENOSDS : constant integer := 117; -- no SDS of such a name ENODEF : constant integer := 116; -- no such a definition in SDS EACT : constant integer := 115; -- an activity is already in progress ENOACT : constant integer := 114; -- no activity started by the process ENOLOCK : constant integer := 112; -- resource not acquired to the activity ETOOSTR : constant integer := 111; -- too strong lock mode request EBADNUM : constant integer := 108; -- the internal link number is bad EVOLNB : constant integer := 107; -- maximum number of volumes reached EUNIXFS : constant integer := 106; -- forbidden on a Unix file system ELOCK : constant integer := 105; -- conflict with existing locks ESIZE : constant integer := 104; -- size parameter is negative EVOL : constant integer := 103; -- another volume is present ENOPREF : constant integer := 102; -- no preferred link type ERSRV : constant integer := 101; -- message queue already reserved EIKC : constant integer := 97; -- error inside ikc message ELAN : constant integer := 96; -- error on the Net -- ERREURS PCTE non repertorie'es dans errors.h de PCTE EMASTER : constant integer := 100; -- master instance ESUSP : constant integer := 99; -- process suspended ECOPY : constant integer := 98; -- write forbidden on a copy of a replica EABORT : constant integer := 95; -- error during endact --> abortact ETOOLONG : constant integer := 94; -- string too long -- retrieve errno function get_errno return integer; pragma INTERFACE (C, get_errno); end errors_c;