path: root / awk-edits / #stack.awk


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

function newStack(name) {
	__stacks[name, "length"] = 0
}

function topStack(name) {
	return __stacks[name, __stacks[name, "length"] - 1]
}

function lengthStack(name) {
	return __stacks[name, "length"]
}

function pushStack(name, value) {
	__stacks[name, __stacks[name, "length"]++] = value
}

function popStack(name, value) {
	delete __stacks[name, --__stacks[name, "length"]]
}

function deleteStack(name) {
	for (i = 0; i < __stacks[name, "length"]; i++) {
		delete __stacks[name, i]
	}
	delete __stacks[name, "length"]
}