mirror of
https://github.com/vishapoberon/vipak.git
synced 2026-04-05 20:42:26 +00:00
HashMap String works
This commit is contained in:
parent
740bd75240
commit
3aa2bcec3e
7 changed files with 63 additions and 48 deletions
|
|
@ -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.
|
||||
Loading…
Add table
Add a link
Reference in a new issue