From 1bbfe1b53d7b20f8ff2e132e6ce1cb0a23a674d8 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Henrik=20Grubbstr=C3=B6m=20=28Grubba=29?=
<grubba@grubba.org>
Date: Fri, 20 Jun 1997 17:06:19 +0200
Subject: [PATCH] Added top().
Rev: lib/modules/Stack.pmod:1.3
---
lib/modules/Stack.pmod | 8 ++++++++
1 file changed, 8 insertions(+)
diff --git a/lib/modules/Stack.pmod b/lib/modules/Stack.pmod
index aeb471a65b..b57df1b3d4 100644
--- a/lib/modules/Stack.pmod
+++ b/lib/modules/Stack.pmod
@@ -10,6 +10,14 @@ class stack {
arr[ptr++]=val;
}
+ mixed top()
+ {
+ if (ptr) {
+ return(arr[ptr-1]);
+ }
+ error("Stack underflow\n");
+ }
+
mixed pop(void|int val)
{
mixed foo;
--
GitLab