home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / perl / scripts-osu / operl.shar / stack.pl < prev   
Encoding:
Perl Script  |  1991-02-25  |  468 b   |  15 lines
  1. #!/usr/bin/perl
  2. require 'operl.pl';
  3.  
  4. &defclass ('stack','root');
  5. &defmethod('stack','init','$inx = 0');
  6. &defmethod('stack','push','$stk[$inx++] = $_[0];');
  7. &defmethod('stack','pop',
  8.        'warn "warn: empty stack.\n" if ($inx <= 0);$inx -- if $inx > 0;');
  9. &defmethod('stack','top',
  10.        'warn "warn: empty stack.\n" if ($inx <= 0);$stk[$inx - 1]');
  11. &defmethod('stack','length','$inx;');
  12. &defmethod('stack','dump','foreach $item (@stk) {print "(" . $item . ")\n";}');
  13.  
  14. 1;
  15.