vishapoberon/vipak
1
0
Fork 0
mirror of https://github.com/vishapoberon/vipak.git synced 2026-04-06 04:52:26 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

dependency tree gets populated.

Browse source
This commit is contained in:
Norayr Chilingarian 2020-06-09 17:57:59 +04:00
parent 289c154f46
commit d8a2a9ddac
19 changed files with 229 additions and 707 deletions
Download patch file Download diff file Expand all files Collapse all files

11
src/vpkCharacterStack.Mod
View file

@ -1,20 +1,19 @@
MODULE vpkCharacterStack;
IMPORT List, Out, Sys;
IMPORT lDefs, List, Out;
TYPE
integer* = Sys.integer;
TObject* = Sys.TObject;
TObject* = lDefs.TObject;
Node* = POINTER TO NodeDesc;
NodeDesc* = List.NodeDesc;
TChar* = POINTER TO TCharDesc;
TCharDesc = RECORD (Sys.TObjectDesc)
TCharDesc = RECORD (lDefs.TObjectDesc)
char* : CHAR
END;
string = Sys.string;
string = lDefs.string;
CharacterStackType* = POINTER TO CharacterStackTypeDesc;
@ -30,7 +29,7 @@ VAR
PROCEDURE push(self: CharacterStackType; char: CHAR);
VAR
ch: TChar;
int: integer;
int: LONGINT;
BEGIN
NEW(ch);
ch.char := char;