home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 5 / FreshFish_July-August1994.bin / bbs / util / reqtools-2.2b.lha / ReqTools-2.2b / Glue / M2Sprint / m2sprint_glue.lha / VarCallArgs.def < prev    next >
Encoding:
Modula Definition  |  1992-02-14  |  619 b   |  28 lines
  1. DEFINITION MODULE VarCallArgs;
  2.  
  3. FROM SYSTEM IMPORT ADDRESS;
  4.  
  5. (* This module allows you to create C-style argument lists *)
  6.  
  7.  
  8. (*********************************************************************)
  9. (* Various routines used for variable-length argument lists          *)
  10.  
  11.  
  12. PROCEDURE ArgIs(Arg : LONGCARD) : ADDRESS;
  13. (* Pass argument to a C-style routine *)
  14.  
  15.  
  16. PROCEDURE ArgIs2(Arg1, Arg2 : LONGCARD) : ADDRESS;
  17. (* Pass 2 arguments *)
  18.  
  19.  
  20. PROCEDURE ArgIs3(Arg1, Arg2, Arg3 : LONGCARD) : ADDRESS;
  21. (* Pass 3 arguments *)
  22.  
  23.  
  24. PROCEDURE ArgIs4(Arg1, Arg2, Arg3, Arg4 : LONGCARD) : ADDRESS;
  25. (* Pass 4 arguments *)
  26.  
  27.  
  28. END VarCallArgs.