UNIX Free Pascal


       Рвд в новосибирске по материалам http://sibirteh.com. |   

stdio - 7


type PFILE=^TFILE;

_IO_marker=record

next:^_IO_marker;

sbuf:PFILE;

_pos:integer;

end;

P_IO_marker=^_IO_marker;

ppchar=^pchar;

pinteger=^integer;

plongint=^longint;

sigset_t=record

__val:array [0.._SIGSET_NWORDS-1] of longint;

end;

psigset_t=^sigset_t;

__jmp_buf=array [0..5] of longint;

__jmp_buf_tag=record

__jmpbuf:__jmp_buf; (* Calling environment. *)

__mask_was_saved:longint; (* Saved the signal mask? *)

__saved_mask:sigset_t; (* Saved signal mask. *)

end;

jmp_buf=array [0..0] of __jmp_buf_tag;

sigjmp_buf=jmp_buf;

flockrec=record

l_type:word; (* Type of lock: F_RDLCK, F_WRLCK, or F_UNLCK. *)

l_whence:word; (* Where `l_start' is relative to (like `lseek'). *)

l_start:longint; (* Offset where the lock begins. *)

l_len:longint; (* Size of the locked area; zero means until EOF. *)

l_pid:longint; (* Process holding the lock. *)

end;

(* *)

in_addr=record

s_addr:cardinal;

end;

pin_addr=^in_addr;

in_addr_t=cardinal;

(* *)

tm=record

tm_sec:longint; (* seconds *)

tm_min:longint; (* minutes *)

tm_hour:longint; (* hours *)

tm_mday:longint; (* day of the month *)

tm_mon:longint; (* month *)

tm_year:longint; (* year *)

tm_wday:longint; (* day of the week *)

tm_yday:longint; (* day in the year *)

tm_isdst:longint; (* daylight saving time *)

end;

ptm=^tm;

TFILE=record

_flags:integer; (* High-order word is _IO_MAGIC; rest is flags. *)

(* The following pointers correspond to the C++ streambuf protocol. *)

(* Note: Tk uses the _IO_read_ptr and _IO_read_end fields directly. *)

_IO_read_ptr:pchar; (* Current read pointer *)

_IO_read_end:pchar; (* End of get area. *)

_IO_read_base:pchar; (* Start of putback+get area. *)