HashMap String works

This commit is contained in:
Ruben Shekspir 2019-04-16 23:26:49 +04:00
parent 740bd75240
commit 3aa2bcec3e
7 changed files with 63 additions and 48 deletions

View file

@ -1,4 +1,4 @@
MODULE CharaterStack;
MODULE CharacterStack;
IMPORT List, Out, Sys;
TYPE
@ -16,9 +16,9 @@ TYPE
string = Sys.string;
CharacterStackType = POINTER TO CharacterStackTypeDesc;
CharacterStackType* = POINTER TO CharacterStackTypeDesc;
CharacterStackTypeDesc = RECORD (List.TListDesc)
CharacterStackTypeDesc* = RECORD (List.TListDesc)
pop: PROCEDURE(self: CharacterStackType): CHAR;
push: PROCEDURE(self: CharacterStackType; char: CHAR);
top: PROCEDURE(self: CharacterStackType) : CHAR;
@ -118,4 +118,4 @@ BEGIN
Out.Ln();
Out.Char(characterStack.pop(characterStack));
Out.Ln();
END CharaterStack.
END CharacterStack.