Flat JSON workssssss

This commit is contained in:
Ruben Shekspir 2019-04-21 19:05:22 +04:00
parent ab05eb8bd5
commit 78085b1079
2 changed files with 45 additions and 43 deletions

View file

@ -19,9 +19,9 @@ TYPE
CharacterStackType* = POINTER TO CharacterStackTypeDesc;
CharacterStackTypeDesc* = RECORD (List.TListDesc)
pop: PROCEDURE(self: CharacterStackType): CHAR;
push: PROCEDURE(self: CharacterStackType; char: CHAR);
top: PROCEDURE(self: CharacterStackType) : CHAR;
pop*: PROCEDURE(self: CharacterStackType): CHAR;
push*: PROCEDURE(self: CharacterStackType; char: CHAR);
top*: PROCEDURE(self: CharacterStackType) : CHAR;
END;
VAR