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,83 @@
+unit dpglib.ExceptionHandler;
+
+interface
+uses
+   dpgrtl.types,
+   dpglib.types;
+
+type
+   // =========================================================================
+   // Class TExceptionHandler declaration
+   // =========================================================================
+   TExceptionHandler = class( TInterfacedObject,
+                                 IExceptionHandler)
+   // ---------------------------------------------------------------
+   // Members
+   // ---------------------------------------------------------------
+   protected
+      fTypeAndName   : IToken;
+      fAction        : IToken;
+
+   // ---------------------------------------------------------------
+   // Constructor/destructor
+   // ---------------------------------------------------------------
+   public
+      constructor Create(  pTypeAndName   : IToken;
+                           pAction        : IToken);
+      destructor  Destroy; override;
+
+   // ---------------------------------------------------------------
+   // IExceptionHandler methods
+   // ---------------------------------------------------------------
+   protected
+      function    GetTypeAndName   : IToken;
+      function    GetAction        : IToken;
+   end;
+
+implementation
+// ****************************************************************************
+//                                                       Constructor/destructor
+// ****************************************************************************
+// ============================================================================
+// Constructor
+// ============================================================================
+constructor TExceptionHandler.Create(  pTypeAndName   : IToken;
+                                          pAction        : IToken);
+begin
+   inherited Create;
+
+   fTypeAndName   := pTypeAndName;
+   fAction        := pAction;
+end;
+
+// ============================================================================
+// Destructor
+// ============================================================================
+destructor TExceptionHandler.Destroy;
+begin
+   fTypeAndName   := nil;
+   fAction        := nil;
+
+   inherited;
+end;
+
+// ****************************************************************************
+//                                          IExceptionHandler implementation
+// ****************************************************************************
+// ============================================================================
+// GetTypeAndName
+// ============================================================================
+function TExceptionHandler.GetTypeAndName: IToken;
+begin
+   result := fTypeAndName;
+end;
+
+// ============================================================================
+// GetAction
+// ============================================================================
+function TExceptionHandler.GetAction: IToken;
+begin
+   result := fAction;
+end;
+
+end.