home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a066 / 1.img / STACK.PRG < prev    next >
Encoding:
Text File  |  1992-03-20  |  1.0 KB  |  57 lines
  1. /*
  2.     stack.prg
  3.  
  4.     Copyright (c) 1991 Anton van Straaten
  5.  
  6.     06/02/1991 04:18 avs - creation
  7.  
  8.     A simple implementation of a stack class.
  9. */
  10.  
  11. #include "class(y).ch"
  12.  
  13.  
  14. create class Stack
  15.     instvar items
  16.  
  17. export:
  18.     method push
  19.     method pop
  20. endclass
  21.  
  22. /*
  23.     A new stack object can be created from a single value,
  24.     an array of values, or another stack object.
  25. */
  26.  
  27. constructor (aItems)
  28.     local itemType := valtype(aItems)
  29.  
  30.     if aItems == NIL
  31.         ::items := {}                       // empty stack
  32.     elseif itemType == 'A'
  33.         ::items := aItems
  34.     elseif itemType == 'O' .and. aItems:className == 'STACK'
  35.         ::items := array(len(aItems:items))
  36.         acopy(aItems:items, ::items)
  37.     else
  38.         ::items := { aItems }
  39.     end
  40. return
  41.  
  42. method function push(item)
  43.     aadd(::items, item)
  44. return item
  45.  
  46. method function pop
  47.     local retval
  48.     local nLen := len(::items)
  49.     if nLen > 0
  50.         retval := ::items[nLen]
  51.         asize(::items, nLen - 1)
  52.     end
  53. return retval
  54.  
  55.  
  56. // eof stack.prg
  57.