# 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 @C #include @C #include @C #include @C #include @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 @C return 0; @C } @Pascal end.