stack.c

/*
 * Copyright (c) 2010-2012 Karl N. Redgate
 * 
 * Permission is hereby granted, free of charge, to any person obtaining a
 * copy of this software and associated documentation files (the "Software"),
 * to deal in the Software without restriction, including without limitation
 * the rights to use, copy, modify, merge, publish, distribute, sublicense,
 * and/or sell copies of the Software, and to permit persons to whom the
 * Software is furnished to do so, subject to the following conditions:
 * 
 * The above copyright notice and this permission notice shall be included
 * in all copies or substantial portions of the Software.
 * 
 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
 * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
 * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
 * THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR
 * OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
 * ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
 * OTHER DEALINGS IN THE SOFTWARE.
 */

/** \file stack.c
 * \brief Stack Manipulation words
 */

#include "compiler.h"
#include "kernel.h"

/**
 */
void
compile_stack_words() {
    Variable( "sp0" );
    Variable( "rp0" );

    Colon( "depth" );
          c("sp@"); c("sp0"); c("@"); c("swap"); c("-");
          c("/cell"); c("/"); End();
    Colon( "clear" );
          c("sp0"); c("@"); c("sp!"); End();

    Colon( "check-stack" );
          c("depth"); c("0<"); If();
             DotQuote("Stack underflow."); c("cr"); c("clear");
          Then(); End();

    Colon( "(.s)" );
          /* FIX - this next line should be replaced with using ?do below */
          c("depth"); c("0="); If(); c("exit"); Then();
          c("depth"); c("dup"); c("0"); Do();
             c("dup"); c("pick"); c("u.");
             c("1-");
          Loop(); c("drop"); End();
    Colon( ".s" );
          c("check-stack");
          c("depth"); c("0="); If();
             DotQuote("Empty."); c("cr"); c("exit");
          Then();
          c("(.s)"); c("cr"); End();

    Variable( "showstack?" );
    Colon( "showstack" ); c("showstack?"); c("toggle"); End();
}

/*
 * vim:autoindent
 * vim:expandtab
 */