X-Git-Url: http://gitweb.michael.orlitzky.com/?p=octave.git;a=blobdiff_plain;f=errcheck.m;fp=errcheck.m;h=fc3d2f2c827bf7018e5f1da6c9a48dae56d55318;hp=0000000000000000000000000000000000000000;hb=8aa8cc9c12fe18887eb13a08962bde982dad996d;hpb=437324f2edf6b26c772080f8cbe3b321dda8d70f

diff --git a/errcheck.m b/errcheck.m
new file mode 100644
index 0000000..fc3d2f2
--- /dev/null
+++ b/errcheck.m
@@ -0,0 +1,7 @@
+function e = errcheck(error_prefix)
+  e = 1;
+  if (index(__error_text__, error_prefix) != 1)
+    e = 0;
+    printf("\nUNEXPECTED ERROR: %s", __error_text__);
+  endif
+end