# HG changeset patch
# User jwe
# Date 747888519 0
# Node ID 36ff440553cdee5c2cb2d6fdda7f06c912116e02
# Parent  e7c8e76a32246472247476c043a8b80b29e0f7f4
[project @ 1993-09-13 02:48:39 by jwe]
(vector_of_empties): Renamed from empty_tree, moved from f-syl.cc.

diff -r e7c8e76a3224 -r 36ff440553cd src/pt-const.cc
--- a/src/pt-const.cc	Mon Sep 13 02:47:37 1993 +0000
+++ b/src/pt-const.cc	Mon Sep 13 02:48:39 1993 +0000
@@ -2392,6 +2392,34 @@
 #endif
 
 /*
+ * Construct return vector of empty matrices.  Return empty matrices
+ * and/or gripe when appropriate.
+ */
+tree_constant *
+vector_of_empties (int nargout, char *fcn_name)
+{
+  tree_constant *retval = NULL_TREE_CONST;
+
+// Got an empty argument, check if should gripe/return empty values.
+
+  int flag = user_pref.propagate_empty_matrices;
+  if (flag != 0)
+    {
+      if (flag < 0)
+	gripe_empty_arg (fcn_name, 0);
+
+      Matrix m;
+      retval = new tree_constant [nargout+1];
+      for (int i = 0; i < nargout; i++)
+	retval[i] = tree_constant (m);
+    }
+  else
+    gripe_empty_arg (fcn_name, 1);
+
+  return retval;
+}
+
+/*
 ;;; Local Variables: ***
 ;;; mode: C++ ***
 ;;; page-delimiter: "^/\\*" ***