home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 4 / FreshFish_May-June1994.bin / bbs / gnu / m4-1.1-src.lha / src / amiga / m4-1.1 / examples / trace.m4 < prev    next >
Encoding:
sendmail m4  |  1991-07-08  |  524 b   |  31 lines
  1. divert(-1)
  2.  
  3. # move(from, to)
  4. define(`move', `Move one disk from `$1' to `$2'.
  5. ')
  6.  
  7. # _hanoi (cnt, from, to, aux)
  8. define(`_hanoi', `ifelse(eval(`$1'<=1), 1, `move($2, $3)',
  9. `_hanoi(decr($1), $2, $4, $3)move($2, $3)_hanoi(decr($1), $4, $3, $2)')')
  10.  
  11. # hanoi (cnt)
  12. define(`hanoi', `_hanoi(`$1', source, destination, auxilliary)')
  13. divert`'dnl
  14.  
  15. # Debugmode t
  16. debugmode(`t')
  17. hanoi(2)
  18.  
  19. # Debugmode taeq
  20. debugmode(`taeq')
  21. hanoi(2)
  22.  
  23. # Debugmode OFF
  24. debugmode
  25. hanoi(2)
  26.  
  27. # Debugmode ae
  28. debugmode(`ae')
  29. traceon(`move', `_hanoi')
  30. hanoi(2)
  31.