/packages/libogcfpc/src/gctypes.pp

https://github.com/slibre/freepascal · Puppet · 44 lines · 33 code · 11 blank · 0 comment · 2 complexity · eb7814958783d59677afbab36fa20f01 MD5 · raw file 

    

  1. unit gctypes;
    2. 

  2. 

  3. interface
    4. 

  4. 

  5. uses
    6. 

  6.   ctypes;
    7. 

  7.   
    8. 

  8. const
    9. 

  9.   LITTLE_ENDIAN = 3412;
    10. 

  10.   BIG_ENDIAN    = 1234;
    11. 

  11.   BYTE_ORDER    = BIG_ENDIAN;
    12. 

  12. 

  13. 

  14. type
    15. 

  15.   f32 = cfloat;
    16. 

  16.   f64 = cdouble;
    17. 

  17.    ppcchar = ^pcchar;
    18. 

  18.    __argv = record
    19. 

  19.      argvMagic: cint;      // argv magic number, set to 0x5f617267 ('_arg') if valid
    20. 

  20.      commandLine: pcchar;  // base address of command line, set of null terminated strings
    21. 

  21.      length: cint;         // total length of command line
    22. 

  22.      argc: integer;
    23. 

  23.      argv: ppcchar;
    24. 

  24.      endARGV: ppcchar;        // internal use, host ip for dslink
    25. 

  25.    end;
    26. 

  26.    Targv = __argv;
    27. 

  27.    Pargv = ^Targv;
    28. 

  28. 

  29.   timespec = record
    30. 

  30.     tv_sec: Longint;
    31. 

  31.     tv_nsec: Longint;
    32. 

  32.   end;
    33. 

  33.   ptimespec = ^timespec;
    34. 

  34.   
    35. 

  35. var
    36. 

  36.   __system_argv: pargv; cvar; external;
    37. 

  37. 

  38. const
    39. 

  39.   ARGV_MAGIC = $5f617267;
    40. 

  40. 

  41. 

  42. implementation
    43. 

  43. 

  44. end.
    45.