diff options
author | Paul Gilbert | 2019-06-17 22:36:31 -0700 |
---|---|---|
committer | Paul Gilbert | 2019-06-22 14:40:49 -0700 |
commit | 08bc570308b0698090ce668dc7dca4c0c76dd3df (patch) | |
tree | 59baa530a4f79b16185c5422ed9f2b706011c8b2 /engines/glk/alan2/stack.cpp | |
parent | 84dfa6d3b83e080f099ad606dc7fbeb40ebe4b97 (diff) | |
download | scummvm-rg350-08bc570308b0698090ce668dc7dca4c0c76dd3df.tar.gz scummvm-rg350-08bc570308b0698090ce668dc7dca4c0c76dd3df.tar.bz2 scummvm-rg350-08bc570308b0698090ce668dc7dca4c0c76dd3df.zip |
GLK: ALAN2: Initial import of full set of interpreter files
Diffstat (limited to 'engines/glk/alan2/stack.cpp')
-rw-r--r-- | engines/glk/alan2/stack.cpp | 74 |
1 files changed, 74 insertions, 0 deletions
diff --git a/engines/glk/alan2/stack.cpp b/engines/glk/alan2/stack.cpp new file mode 100644 index 0000000000..ccce1475d1 --- /dev/null +++ b/engines/glk/alan2/stack.cpp @@ -0,0 +1,74 @@ +/* ScummVM - Graphic Adventure Engine + * + * ScummVM is the legal property of its developers, whose names + * are too numerous to list here. Please refer to the COPYRIGHT + * file distributed with this source distribution. + * + * This program is free software; you can redistribute it and/or + * modify it under the terms of the GNU General Public License + * as published by the Free Software Foundation; either version 2 + * of the License, or (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program; if not, write to the Free Software + * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. + * + */ + +#include "glk/alan2/types.h" +#include "glk/alan2/main.h" +#include "glk/alan2/stack.h" + +namespace Glk { +namespace Alan2 { + +/* PRIVATE DATA */ + +#define STACKSIZE 100 + +/* The AMACHINE STACK */ +static Aptr stack[STACKSIZE]; +static int stackp = 0; + + +#ifdef _PROTOTYPES_ +void push(Aptr i) +#else +void push(i) + Aptr i; +#endif +{ + if (stackp == STACKSIZE) + syserr("Out of stack space."); + stack[stackp++] = i; +} + + +#ifdef _PROTOTYPES_ +Aptr pop(void) +#else +Aptr pop() +#endif +{ + if (stackp == 0) + syserr("Stack underflow."); + return(stack[--stackp]); +} + + +#ifdef _PROTOTYPES_ +Aptr top(void) +#else +Aptr top() +#endif +{ + return(stack[stackp-1]); +} + +} // End of namespace Alan2 +} // End of namespace Glk |