|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: I T
Length: 7702 (0x1e16)
Types: TextFile
Names: »IP_TCP_DEFS_SPEC«
└─⟦180fe333a⟧ Bits:30000405 8mm tape, Rational 1000, SW CATALOG, 10_20_0
└─⟦180fe333a⟧ Bits:30000537 8mm tape, Rational 1000, SW Catalog 10_20_0
└─⟦5cb1d1d7f⟧ »DATA«
└─⟦3b1ee7bd8⟧
└─⟦this⟧
with Vms;
with System;
package Ip_Tcp_Defs is
type Bit_16 is new System.Unsigned_Word;
type Bit_32 is new System.Unsigned_Longword;
subtype Byte_8 is System.Unsigned_Byte_Array (0 .. 7);
subtype Byte_4 is System.Unsigned_Byte_Array (0 .. 3);
subtype Byte_2 is System.Unsigned_Byte_Array (0 .. 1);
The_Device : constant Vms.Device_Name_Type := "INET0:";
Ss_Normal : constant := 1; -- VMS status code
package Vms_Function is
-- VMS function codes
subtype Code is Vms.Function_Code_Type;
Io_Send : constant Code := Vms.Io_Writevblk;
Io_Receive : constant Code := Vms.Io_Readvblk;
Ios_Fcode : constant Integer := 6;
Multiplier : constant Code := Vms."**" (2, Ios_Fcode);
function "+" (Left, Right : Code) return Code renames Vms."+";
function "*" (Left, Right : Code) return Code renames Vms."*";
Io_Socket : constant Code := Vms.Io_Access + (Multiplier * 0);
Io_Bind : constant Code := Vms.Io_Access + (Multiplier * 1);
Io_Listen : constant Code := Vms.Io_Access + (Multiplier * 2);
Io_Accept : constant Code := Vms.Io_Access + (Multiplier * 3);
Io_Connect : constant Code := Vms.Io_Access + (Multiplier * 4);
Io_Setsockopt : constant Code := Vms.Io_Access + (Multiplier * 5);
Io_Getsockopt : constant Code := Vms.Io_Access + (Multiplier * 6);
Io_Ioctl : constant Code := Vms.Io_Access + (Multiplier * 8);
Io_Accept_Wait : constant Code := Vms.Io_Access + (Multiplier * 10);
Io_Network_Pty : constant Code := Vms.Io_Access + (Multiplier * 11);
Io_Shutdown : constant Code := Vms.Io_Access + (Multiplier * 12);
Io_Getsockname : constant Code := Vms.Io_Access + (Multiplier * 13);
end Vms_Function;
package Unix_Error is
-- Error codes defined by Unix.
subtype Number is System.Unsigned_Word;
function Decode (Status : Vms.Iosb_Type) return Number;
function Decode (Status : Vms.Cond_Value_Type) return Number;
Eperm : constant := 1; -- Not owner
Enoent : constant := 2; -- No such file or directory
Esrch : constant := 3; -- No such process
Eintr : constant := 4; -- Interrupted system call
Eio : constant := 5; -- I/O error
Enxio : constant := 6; -- No such device or address
E2big : constant := 7; -- Arg list too long
Enoexec : constant := 8; -- Exec format error
Ebadf : constant := 9; -- Bad file number
Echild : constant := 10; -- No children
Eagain : constant := 11; -- No more processes
Enomem : constant := 12; -- Not enough core
Eacces : constant := 13; -- Permission denied
Efault : constant := 14; -- Bad address
Enotblk : constant := 15; -- Block device required
Ebusy : constant := 16; -- Mount device busy
Eexist : constant := 17; -- File exists
Exdev : constant := 18; -- Cross-device link
Enodev : constant := 19; -- No such device
Enotdir : constant := 20; -- Not a directory
Eisdir : constant := 21; -- Is a directory
Einval : constant := 22; -- Invalid argument
Enfile : constant := 23; -- File table overflow
Emfile : constant := 24; -- Too many open files
Enotty : constant := 25; -- Not a typewriter
Etxtbsy : constant := 26; -- Text file busy
Efbig : constant := 27; -- File too large
Enospc : constant := 28; -- No space left on device
Espipe : constant := 29; -- Illegal seek
Erofs : constant := 30; -- Read-only file system
Emlink : constant := 31; -- Too many links
Epipe : constant := 32; -- Broken pipe
-- math software
Edom : constant := 33; -- Argument too large
Erange : constant := 34; -- Result too large
-- non-blocking and interrupt i/o
Ewouldblock : constant := 35; -- Operation would block
Einprogress : constant := 36; -- Operation now in progress
Ealready : constant := 37; -- Operation already in progress
-- ipc/network software
-- argument errors
Enotsock : constant := 38; -- Socket operation on non-socket
Edestaddrreq : constant := 39; -- Destination address required
Emsgsize : constant := 40; -- Message too long
Eprototype : constant := 41; -- Protocol wrong type for socket
Enoprotoopt : constant := 42; -- Protocol not available
Eprotonosupport : constant := 43; -- Protocol not supported
Esocktnosupport : constant := 44; -- Socket type not supported
Eopnotsupp : constant := 45; -- Operation not supported on socket
Epfnosupport : constant := 46; -- Protocol family not supported
Eafnosupport : constant :=
47; -- Address family not supported by protocol family
Eaddrinuse : constant := 48; -- Address already in use
Eaddrnotavail : constant := 49; -- Can't assign requested address
-- operational errors
Enetdown : constant := 50; -- Network is down
Enetunreach : constant := 51; -- Network is unreachable
Enetreset : constant := 52; -- Network dropped connection on reset
Econnaborted : constant := 53; -- Software caused connection abort
Econnreset : constant := 54; -- Connection reset by peer
Enobufs : constant := 55; -- No buffer space available
Eisconn : constant := 56; -- Socket is already connected
Enotconn : constant := 57; -- Socket is not connected
Eshutdown : constant := 58; -- Can't send after socket shutdown
Etoomanyrefs : constant := 59; -- Too many references: can't splice
Etimedout : constant := 60; -- Connection timed out
Econnrefused : constant := 61; -- Connection refused
Eloop : constant := 62; -- Too many levels of symbolic links
Enametoolong : constant := 63; -- File name too long
-- should be rearranged
Ehostdown : constant := 64; -- Host is down
Ehostunreach : constant := 65; -- No route to host
Enotempty : constant := 66; -- Directory not empty
-- quotas & mush
Eproclim : constant := 67; -- Too many processes
Eusers : constant := 68; -- Too many users
Edquot : constant := 69; -- Disc quota exceeded
end Unix_Error;
Sol_Socket : constant := 16#FFFF#;
Somaxconn : constant := 5;
Sock_Stream : constant := 1;
Sock_Dgram : constant := 2;
subtype Option_Flags_Type is Integer;
So_Debug : constant Option_Flags_Type := 16#01#;
So_Acceptconn : constant Option_Flags_Type := 16#02#;
So_Reuseaddr : constant Option_Flags_Type := 16#04#;
So_Keepalive : constant Option_Flags_Type := 16#08#;
subtype Address_Family_Type is Bit_16;
Af_Inet : constant Address_Family_Type := 2;
type Internet_Address is new Byte_4;
Null_Internet_Address : constant Internet_Address := (others => 0);
type Port_Number is new Byte_2;
Null_Port_Number : constant Port_Number := (others => 0);
type Sin_Addr_Type is
record
S_Addr : Internet_Address := Null_Internet_Address;
end record;
type Sockaddr_In is
record
Sin_Family : Address_Family_Type;
Sin_Port : Port_Number := Null_Port_Number;
Sin_Addr : Sin_Addr_Type;
Sin_Zero : Byte_8 := (others => 0);
end record;
type Io_Accept_Return_Type is
record
Addr_Size : Bit_32;
Foreign_Addr : Sockaddr_In;
end record;
end Ip_Tcp_Defs;