procentry.c 900 B

12345678910111213141516171819202122232425262728293031323334353637383940414243
  1. /* $Id$ */
  2. /*
  3. * (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
  4. *
  5. * This product is part of the Amsterdam Compiler Kit.
  6. *
  7. * Permission to use, sell, duplicate or disclose this software must be
  8. * obtained in writing. Requests for such permissions may be sent to
  9. *
  10. * Dr. Andrew S. Tanenbaum
  11. * Wiskundig Seminarium
  12. * Vrije Universiteit
  13. * Postbox 7161
  14. * 1007 MC Amsterdam
  15. * The Netherlands
  16. *
  17. */
  18. /* Author: E.G. Keizer */
  19. static int level = 0 ;
  20. static wrs() ;
  21. procentry(name) char *name ; {
  22. register int count ;
  23. count=level++ ;
  24. while ( count-- ) {
  25. wrs(" ") ;
  26. }
  27. wrs("Entering ");wrs(name);wrs("\n") ;
  28. }
  29. procexit(name) char *name ; {
  30. register int count ;
  31. count= --level ;
  32. while ( count-- ) {
  33. wrs(" ") ;
  34. }
  35. wrs("Leaving ");wrs(name);wrs("\n") ;
  36. }
  37. static wrs(s) register char *s ; {
  38. write(2,s,strlen(s)) ;
  39. }