library/platform/jvm/stack.factor

   1 ! :folding=indent:collapseFolds=1:
   2
   3 ! $Id$
   4 !
   5 ! Copyright (C) 2003, 2004 Slava Pestov.
   6 !
   7 ! Redistribution and use in source and binary forms, with or without
   8 ! modification, are permitted provided that the following conditions are met:
   9 !
  10 ! 1. Redistributions of source code must retain the above copyright notice,
  11 !    this list of conditions and the following disclaimer.
  12 !
  13 ! 2. Redistributions in binary form must reproduce the above copyright notice,
  14 !    this list of conditions and the following disclaimer in the documentation
  15 !    and/or other materials provided with the distribution.
  16 !
  17 ! THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES,
  18 ! INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND
  19 ! FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
  20 ! DEVELOPERS AND CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
  21 ! SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
  22 ! PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS;
  23 ! OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
  24 ! WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
  25 ! OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
  26 ! ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  27
  28 IN: stack
  29 USE: kernel
  30 USE: vectors
  31
  32 ~<< drop              A --             >>~
  33 ~<< 2drop           A B --             >>~
  34 ~<< 2dup            A B -- A B A B     >>~
  35 ~<< dupd            A B -- A A B       >>~
  36 ~<< 2dupd       A B C D -- A B A B C D >>~
  37 ~<< nip             A B -- B           >>~
  38 ~<< 2nip        A B C D -- C D         >>~
  39 ~<< nop                 --             >>~ ! Does nothing!
  40 ~<< over            A B -- A B A       >>~
  41 ~<< 2over       A B C D -- A B C D A B >>~
  42 ~<< pick          A B C -- A B C A     >>~ ! Not the Forth pick!
  43 ~<< rot           A B C -- B C A       >>~
  44 ~<< 2rot    A B C D E F -- C D E F A B >>~
  45 ~<< -rot          A B C -- C A B       >>~
  46 ~<< 2-rot   A B C D E F -- E F A B C D >>~
  47 ~<< 2swap       A B C D -- C D A B     >>~
  48 ~<< swapd         A B C -- B A C       >>~
  49 ~<< 2swapd  A B C D E F -- C D A B E F >>~
  50 ~<< transp        A B C -- C B A       >>~
  51 ~<< 2transp A B C D E F -- E F C D A B >>~
  52 ~<< tuck            A B -- B A B       >>~
  53 ~<< 2tuck       A B C D -- C D A B C D >>~
  54
  55 ~<< 3drop         A B C --             >>~
  56 ~<< 3dup          A B C -- A B C A B C >>~
  57
  58 ~<< >r        A -- r:A             >>~
  59 ~<< r>      r:A -- A               >>~
  60
  61 : apply-shuffle ( ds cs shuffle -- )
  62     interpreter swap
  63     [
  64         "factor.FactorInterpreter"
  65         "factor.FactorArray"
  66         "factor.FactorArray"
  67     ]
  68     "factor.FactorShuffleDefinition" "eval" jinvoke ;