freepascal.compiler/rtl/openbsd/t_openbsd.h2paschk

# OpenBSD RTL-to-C structure compatibility checker description file
#
# Use
#   h2paschk t_openbsd.h2paschk
#
# ...to generate Pascal and C code, then make sure they both compile and that
# the Pascal program produces the same output as the C program for each
# supported architecture.

@Pascal uses baseunix;
@Pascal begin

@C #include <sys/types.h>
@C #include <sys/stat.h>
@C #include <sys/time.h>
@C #include <sys/times.h>
@C #include <sys/resource.h>
@C #include <sys/uio.h>
@C #include <dirent.h>
@C #include <poll.h>
@C #include <utime.h>
@C #include <fcntl.h>
@C #include <unistd.h>
@C #include <stdio.h>
@C #include <stddef.h>
@C int main()
@C {

@record stat,struct stat
.st_mode
.st_dev
.st_ino
.st_nlink
.st_uid
.st_gid
.st_rdev
.st_atime
.st_atimensec
.st_mtime
.st_mtimensec
.st_ctime
.st_ctimensec
.st_size
.st_blocks
.st_blksize
.st_flags
.st_gen
.st_birthtime,__st_birthtime
.st_birthtimensec,__st_birthtimensec

@record dirent,struct dirent
.d_fileno
.d_off
.d_reclen
.d_type
.d_namlen
.d_padding,__d_padding
.d_name

@record pollfd,struct pollfd
.fd
.events
.revents

@record utimbuf,struct utimbuf
.actime
.modtime

@record flock,struct flock
.l_start
.l_len
.l_pid
.l_type
.l_whence

@record tms,struct tms
.tms_utime
.tms_stime
.tms_cutime
.tms_cstime

@record timezone,struct timezone
.tz_minuteswest
.tz_dsttime

@record rusage,struct rusage
.ru_utime
.ru_stime
.ru_maxrss
.ru_ixrss
.ru_idrss
.ru_isrss
.ru_minflt
.ru_majflt
.ru_nswap
.ru_inblock
.ru_oublock
.ru_msgsnd
.ru_msgrcv
.ru_nsignals
.ru_nvcsw
.ru_nivcsw

@record TRLimit,struct rlimit
.rlim_cur
.rlim_max

@record iovec,struct iovec
.iov_base
.iov_len

@C   return 0;
@C }

@Pascal end.