From ea85f9f6073530c5418397542b1502f8bcd24535 Mon Sep 17 00:00:00 2001
From: Artem3213212 <cx-1212@yandex.ru>
Date: Wed, 2 Jan 2019 16:20:48 +0300
Subject: [PATCH] ParallelStack init

---
 AG.PascalTokenizer.pas | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/AG.PascalTokenizer.pas b/AG.PascalTokenizer.pas
index f2f01a2..8571017 100644
--- a/AG.PascalTokenizer.pas
+++ b/AG.PascalTokenizer.pas
@@ -62,6 +62,20 @@ type
     property Last:TAGToken read GetLast write Push;
     property Ended:Boolean read IsEnded;
   end;
+
+  {TAGPasTokenizerParallelStack=class(TAGPasTokenizerStack)
+  strict protected
+    var
+      Stack:TStack<TAGToken>;
+      Tokenizer:TAGPasTokenizer;
+      Get:GetCall;
+    function GetLast():TAGToken;
+    function IsEnded():Boolean;
+  public
+    constructor Create(input:TStrings;GetComments:boolean=True);
+    procedure Push(t:TAGToken);
+    function Pop():TAGToken;
+  end;       }
   {$ENDIF}
 
 function IsComment(s: string): boolean;