SYSTEM.h 747 B

12345678910111213141516171819202122232425
  1. /*
  2. * (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
  3. * See the copyright notice in the ACK home directory, in the file "Copyright".
  4. *
  5. * Author: Ceriel J.H. Jacobs
  6. */
  7. /* S Y S T E M M O D U L E T E X T */
  8. /* $Id$ */
  9. /* Text of SYSTEM module, for as far as it can be expressed in Modula-2 */
  10. #ifndef STRICT_3RD_ED
  11. #define SYSTEMTEXT "DEFINITION MODULE SYSTEM;\n\
  12. TYPE PROCESS = ADDRESS;\n\
  13. PROCEDURE NEWPROCESS(P:PROC; A:ADDRESS; n:CARDINAL; VAR p1:ADDRESS);\n\
  14. PROCEDURE TRANSFER(VAR p1,p2:ADDRESS);\n\
  15. END SYSTEM.\n"
  16. #else
  17. #define SYSTEMTEXT "DEFINITION MODULE SYSTEM;\n\
  18. PROCEDURE NEWPROCESS(P:PROC; A:ADDRESS; n:CARDINAL; VAR p1:ADDRESS);\n\
  19. PROCEDURE TRANSFER(VAR p1,p2:ADDRESS);\n\
  20. END SYSTEM.\n"
  21. #endif