changeset 2078:4d43f960f2cc

[project @ 1996-04-24 01:12:59 by jwe]
author jwe
date Wed, 24 Apr 1996 01:14:04 +0000
parents 2d03b8eb891d
children 6c1effd5dcea
files src/gripes.cc src/gripes.h src/syscalls.cc src/toplev.cc
diffstat 4 files changed, 9 insertions(+), 7 deletions(-) [+]
line wrap: on
line diff
--- a/src/gripes.cc
+++ b/src/gripes.cc
@@ -29,6 +29,12 @@
 #include "pt-const.h"
 
 void
+gripe_not_supported (const char *fcn)
+{
+  error ("%s: not supported on this system", fcn);
+}
+
+void
 gripe_string_invalid (void)
 {
   error ("string constant used in invalid context");
--- a/src/gripes.h
+++ b/src/gripes.h
@@ -25,6 +25,7 @@
 
 class tree_constant;
 
+extern void gripe_not_supported (void);
 extern void gripe_string_invalid (void);
 extern void gripe_range_invalid (void);
 extern void gripe_nonconformant (void);
--- a/src/syscalls.cc
+++ b/src/syscalls.cc
@@ -43,6 +43,7 @@
 #include "defun.h"
 #include "error.h"
 #include "file-ops.h"
+#include "gripes.h"
 #include "help.h"
 #include "lo-utils.h"
 #include "oct-map.h"
@@ -81,12 +82,6 @@
   return m;
 }
 
-static void
-gripe_not_supported (const char *fcn)
-{
-  error ("%s: not supported on this system", fcn);
-}
-
 DEFUN(dup2, args, ,
  "fid = dup2 (old, new)")
 {
--- a/src/toplev.cc
+++ b/src/toplev.cc
@@ -720,7 +720,7 @@
   else
     print_usage ("atexit");
 #else
-  error ("atexit: not supported on this system");
+  gripe_not_supported ("atexit");
 #endif
 
   return retval;