/packages/libc/src/prwhodh.inc

https://github.com/slibre/freepascal · Unknown · 37 lines · 30 code · 7 blank · 0 comment · 0 complexity · 170f78ebbbb00697f24daa5c1282940e MD5 · raw file 

    

  1. type
    2. 

  2.    Poutmp = ^outmp;
    3. 

  3.    outmp = record
    4. 

  4.         out_line : array[0..7] of char;
    5. 

  5.         out_name : array[0..7] of char;
    6. 

  6.         out_time : int32_t;
    7. 

  7.      end;
    8. 

  8. 

  9.   whoent =  record
    10. 

  10.     we_utmp: outmp;
    11. 

  11.     we_idle: Integer;
    12. 

  12.   end;
    13. 

  13. 

  14.    Pwhod = ^whod;
    15. 

  15.    whod = record
    16. 

  16.         wd_vers : char;
    17. 

  17.         wd_type : char;
    18. 

  18.         wd_pad : array[0..1] of char;
    19. 

  19.         wd_sendtime : longint;
    20. 

  20.         wd_recvtime : longint;
    21. 

  21.         wd_hostname : array[0..31] of char;
    22. 

  22.         wd_loadav : array[0..2] of longint;
    23. 

  23.         wd_boottime : longint;
    24. 

  24.         wd_we: packed array[0..(1024 div SizeOf(whoent))-1] of whoent;
    25. 

  25.      end;
    26. 

  26. 

  27. 

  28. const
    29. 

  29.    WHODVERSION = 1;
    30. 

  30.    WHODTYPE_STATUS = 1;
    31. 

  31. 

  32. { ---------------------------------------------------------------------
    33. 

  33.     Borland compatibility types
    34. 

  34.   ---------------------------------------------------------------------}
    35. 

  35. 

  36. // Type
    37.