Initial check in lib

2026-01-03 18:33:48 +01:00
parent b20cd8e688
commit 5666f85e99
89 changed files with 36370 additions and 1 deletions
@@ -0,0 +1,157 @@
+unit dpglib.AlternativeElem;
+
+interface
+uses
+   dpgrtl.types,
+   dpglib.types,
+   dpglib.GrammarElem;
+
+type
+   TAlternativeElem = class( TGrammarElem, IAlternativeElem, IGrammarElem)
+      protected
+         fNext          : IAlternativeElem;
+         fEnclosingRule : AnsiString;
+         fAutoGenType   : integer;
+
+      // ----------------------------------------------------------------------
+      // Construction/destruction
+      // ----------------------------------------------------------------------
+      public
+         constructor Create(  Grammar     : IGrammar);   overload;
+         constructor Create(  Grammar     : IGrammar;
+                              Start       : IToken);     overload;
+         constructor Create(  Grammar     : IGrammar;
+                              Start       : IToken;
+                              AutoGenType : integer);    overload;
+
+         destructor  Destroy; override;
+
+      // ----------------------------------------------------------------------
+      // IAlternativeElem
+      // ----------------------------------------------------------------------
+      protected
+         function    GetAutoGenType   : integer;
+         function    GetNext          : IAlternativeElem;
+         function    GetLabel         : AnsiString;
+         function    GetEnclosingRule : AnsiString;
+
+         procedure   SetNext(          Next  : IAlternativeElem);
+         procedure   SetLabel(         Lbl   : AnsiString);
+         procedure   SetEnclosingRule( Rule  : AnsiString);
+   end;
+
+implementation
+
+// @@@: Construction/destruction ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+// ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+// ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+//
+//                                   Construction/destruction
+//
+// ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+// ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+// ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+// ================================================================================================
+// Constructor
+// ================================================================================================
+constructor TAlternativeElem.Create(   Grammar: IGrammar);
+begin
+   inherited Create( Grammar);
+   fAutoGenType := AUTOGEN_NONE;
+end;
+
+// ================================================================================================
+// Constructor
+// ================================================================================================
+constructor TAlternativeElem.Create(   Grammar    : IGrammar;
+                                       Start      : IToken);
+begin
+   inherited Create( Grammar, Start);
+   fAutoGenType := AUTOGEN_NONE;
+end;
+
+// ================================================================================================
+// Constructor
+// ================================================================================================
+constructor TAlternativeElem.Create(   Grammar    : IGrammar;
+                                       Start      : IToken;
+                                       AutoGenType: integer);
+begin
+   inherited Create( Grammar, Start);
+   fAutoGenType := AutoGenType;
+end;
+
+// ================================================================================================
+// Destructor
+// ================================================================================================
+destructor TAlternativeElem.Destroy;
+begin
+   fNext := nil;
+   inherited;
+end;
+
+// @@@: IAlternativeElem implementation +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+// ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+// ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+//
+//                                IAlternativeElem implementation
+//
+// ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+// ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+// ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+// ================================================================================================
+// Get AutoGenType
+// ================================================================================================
+function TAlternativeElem.GetAutoGenType: integer;
+begin
+   result := fAutoGenType;
+end;
+
+// ================================================================================================
+// Get EnclosingRule
+// ================================================================================================
+function TAlternativeElem.GetEnclosingRule: AnsiString;
+begin
+   result := fEnclosingRule;
+end;
+
+// ================================================================================================
+// Get Label
+// ================================================================================================
+function TAlternativeElem.GetLabel: AnsiString;
+begin
+   result := '';
+end;
+
+// ================================================================================================
+// Get Next
+// ================================================================================================
+function TAlternativeElem.GetNext: IAlternativeElem;
+begin
+   result := fNext;
+end;
+
+// ================================================================================================
+// Set EnclosingRule
+// ================================================================================================
+procedure TAlternativeElem.SetEnclosingRule(Rule: AnsiString);
+begin
+   fEnclosingRule := Rule;
+end;
+
+// ================================================================================================
+// Set Label
+// ================================================================================================
+procedure TAlternativeElem.SetLabel(Lbl: AnsiString);
+begin
+end;
+
+// ================================================================================================
+// Set Next
+// ================================================================================================
+procedure TAlternativeElem.SetNext(Next: IAlternativeElem);
+begin
+   fNext := Next;
+end;
+
+end.