Startseite Erkunden Hilfe
Anmelden
eric
/
M2compiler-V3
1
0
Fork 0
Dateien Issues 0 Pull-Requests 0 Wiki
Branch: master
Branches Tags
M2compiler-V3
/
stdlib
/
wrapc.def

wrapc.def 1004 B
Permalink Verlauf Originalformat

123456789101112131415161718192021222324252627 
  1. DEFINITION MODULE wrapc;
    2. 

  2. (* gm2-compatible: assorted C-library wrappers. *)
    3. 

  3. 

  4. FROM SYSTEM IMPORT ADDRESS;
    5. 

  5. 

  6. PROCEDURE strtime () : ADDRESS;
    7. 

  7. PROCEDURE filesize (f : INTEGER; VAR low, high : CARDINAL) : INTEGER;
    8. 

  8. PROCEDURE fileinode (f : INTEGER; VAR low, high : CARDINAL) : INTEGER;
    9. 

  9. PROCEDURE filemtime (f : INTEGER) : INTEGER;
    10. 

  10. PROCEDURE getrand (n : INTEGER) : INTEGER;
    11. 

  11. PROCEDURE getusername () : ADDRESS;
    12. 

  12. PROCEDURE getnameuidgid (name : ADDRESS; VAR uid, gid : INTEGER);
    13. 

  13. PROCEDURE signbit (r : REAL) : INTEGER;
    14. 

  14. PROCEDURE signbitf (s : SHORTREAL) : INTEGER;
    15. 

  15. PROCEDURE signbitl (l : LONGREAL) : INTEGER;
    16. 

  16. PROCEDURE isfinite (x : REAL) : INTEGER;
    17. 

  17. PROCEDURE isfinitef (x : SHORTREAL) : INTEGER;
    18. 

  18. PROCEDURE isfinitel (x : LONGREAL) : INTEGER;
    19. 

  19. PROCEDURE isnan (x : REAL) : INTEGER;
    20. 

  20. PROCEDURE isnanf (x : SHORTREAL) : INTEGER;
    21. 

  21. PROCEDURE isnanl (x : LONGREAL) : INTEGER;
    22. 

  22. PROCEDURE SeekSet () : INTEGER;
    23. 

  23. PROCEDURE SeekEnd () : INTEGER;
    24. 

  24. PROCEDURE ReadOnly () : CARDINAL;
    25. 

  25. PROCEDURE WriteOnly () : CARDINAL;
    26. 

  26. 

  27. END wrapc.
    28.