home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 3 / Meeting_Pearls_III.iso / Pearls / dev / AmigaE / E_v3.2a / Src / Library / Stack / stacklib.e < prev    next >
Text File  |  1994-11-08  |  495b  |  27 lines
  1. /* A stack library. uses the stack class. */
  2.  
  3. LIBRARY 'stack.library',1,1,'bla' IS stack,end,push,pop,isempty
  4.  
  5. MODULE 'class/stack'
  6.  
  7. PROC stack() HANDLE
  8.   DEF x=NIL:PTR TO stack
  9.   NEW x.stack()
  10. EXCEPT DO            -> prevent "NEW" exceptions being thrown out of the library
  11. ENDPROC x
  12.  
  13. PROC end(st:PTR TO stack)
  14.   END st
  15. ENDPROC
  16.  
  17. PROC push(st:PTR TO stack,v) HANDLE
  18.   st.push(v)
  19. EXCEPT DO
  20. ENDPROC
  21.  
  22. PROC pop(st:PTR TO stack) IS st.pop()
  23. PROC isempty(st:PTR TO stack) IS st.is_empty()
  24.  
  25. PROC main()
  26. ENDPROC
  27.