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,79 @@
+unit dpglib.GrammarSymbol;
+
+interface
+uses
+   dpglib.types;
+
+type
+   TGrammarSymbol = class( TInterfacedObject, IGrammarSymbol)
+      protected
+         fID: AnsiString;
+
+      // ----------------------------------------------------------------------
+      // IdpgGrammar methods
+      // ----------------------------------------------------------------------
+      protected
+         function    GetID: AnsiString;
+         procedure   SetID( pID: AnsiString);
+
+      // ----------------------------------------------------------------------
+      // Construction/destruction
+      // ----------------------------------------------------------------------
+      public
+         constructor Create;                    overload;
+         constructor Create( ID: AnsiString);   overload;
+   end;
+
+implementation
+
+// @@@: Construction/destruction ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+// ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+// ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+//
+//                                   Construction/destruction
+//
+// ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+// ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+// ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+// ================================================================================================
+// Constructor
+// ================================================================================================
+constructor TGrammarSymbol.Create;
+begin
+   fID := '';
+end;
+
+// ================================================================================================
+// Constructor
+// ================================================================================================
+constructor TGrammarSymbol.Create(ID: AnsiString);
+begin
+   fID := ID;
+end;
+
+// @@@: IdpgGrammarSymbol implementation ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+// ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+// ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+//
+//                               IdpgGrammarSymbol implementation
+//
+// ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+// ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+// ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+// ================================================================================================
+// Get ID
+// ================================================================================================
+function TGrammarSymbol.GetID: AnsiString;
+begin
+   result := fID;
+end;
+
+// ================================================================================================
+// Set ID
+// ================================================================================================
+procedure TGrammarSymbol.SetID(pID: AnsiString);
+begin
+   fID := pID;
+end;
+
+end.