summaryrefslogtreecommitdiff
path: root/src/fltk-errors.ads
diff options
context:
space:
mode:
authorJedidiah Barber <contact@jedbarber.id.au>2024-11-30 15:13:42 +1300
committerJedidiah Barber <contact@jedbarber.id.au>2024-11-30 15:13:42 +1300
commitba29d58fb21f0f376dd4c09df61b4e1d38cb1226 (patch)
tree81676cf559a9bb1c9a02ee82e004a23a28c54681 /src/fltk-errors.ads
parente3655d5d9f49e325bda4c9cf99d579bc89355a14 (diff)
Error/Warning/Fatal added to FLTK.Errors
Diffstat (limited to 'src/fltk-errors.ads')
-rw-r--r--src/fltk-errors.ads39
1 files changed, 39 insertions, 0 deletions
diff --git a/src/fltk-errors.ads b/src/fltk-errors.ads
new file mode 100644
index 0000000..6cdea54
--- /dev/null
+++ b/src/fltk-errors.ads
@@ -0,0 +1,39 @@
+
+
+-- Programmed by Jedidiah Barber
+-- Released into the public domain
+
+
+package FLTK.Errors is
+
+
+ type Error_Function is not null access procedure
+ (Message : in String);
+
+
+ procedure Default_Warning
+ (Message : in String);
+
+ procedure Default_Error
+ (Message : in String);
+
+ procedure Default_Fatal
+ (Message : in String);
+
+
+ Current_Warning : Error_Function := Default_Warning'Access;
+ Current_Error : Error_Function := Default_Error'Access;
+ Current_Fatal : Error_Function := Default_Fatal'Access;
+
+
+private
+
+
+ pragma Inline (Default_Warning);
+ pragma Inline (Default_Error);
+ pragma Inline (Default_Fatal);
+
+
+end FLTK.Errors;
+
+