|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 3072 (0xc00)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package Fcntl, seg_04b92f
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
--
--FCNTL(2) UNIX Programmer's Manual FCNTL(2)
--
-- fcntl - file control
-- see /usr/include/fcntl.h
--
with Os_Files;
with Unix;
package Fcntl is
-- Flag values accessible to open(2) and fcntl(2)
-- (The first three can only be set by open)
-- These values are defined in os_files.a
--\x09\x09\x09O_RDONLY\x090
--\x09\x09\x09O_WRONLY\x091
--\x09\x09\x09O_RDWR\x09\x092
--\x09\x09\x09O_NDELAY\x09FNDELAY\x09-- Non-blocking I/O
--\x09\x09\x09O_APPEND\x09FAPPEND\x09-- append (writes guaranteed at the end)
type Fcntl_Commands is (F_Dupfd, -- Duplicate fildes
F_Getfd, -- Get fildes flags
F_Setfd, -- Set fildes flags
F_Getfl, -- Get file flags
F_Setfl, -- Set file flags
F_Getown, -- Get owner
F_Setown); -- Set owner
-- flags for F_GETFL, F_SETFL-- copied from <sys/file.h>
-- non-blocking reads
Fndelay : constant Os_Files.Open_Flags := Os_Files.O_Ndelay;
-- append on each write
Fappend : constant Os_Files.Open_Flags := Os_Files.O_Append;
function Fcntl (Fd : Os_Files.File_Descriptor;
Cmd : Fcntl_Commands;
Arg : Os_Files.Open_Flags := 0) return Unix.Status_Code;
pragma Interface (C, Fcntl);
end Fcntl;
nblk1=2
nid=0
hdr6=4
[0x00] rec0=1f rec1=00 rec2=01 rec3=072
[0x01] rec0=0c rec1=00 rec2=02 rec3=000
tail 0x21548c3cc868434ccb353 0x42a00088462060003