Changeset 4a0a5d5 in git

Timestamp:

Jun 5, 2000, 2:23:10 PM (24 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

5ce07936033d823db35487445a4286b4a3a3f94b

Parents:

0bcebab457fea8b759de0450976f3d0b3423072a

Message:

*hannes: do not allow dirs to be opened by feFopen


git-svn-id: file:///usr/local/Singular/svn/trunk@4427 2c84dea3-7e68-4137-9b89-c4e89433aadc

File:

• Singular/febase.cc (modified) (3 diffs)

Singular/febase.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: febase.cc,v 1.86 2000-04-27 10:07:06 obachman Exp $ */
+/* $Id: febase.cc,v 1.87 2000-06-05 12:23:10 Singular Exp $ */
 /*
 * ABSTRACT: i/o system
@@ -15 +15 @@
 #include <limits.h>
 #include <stdarg.h>
+#include <sys/stat.h>
 #ifndef __MWERKS__
 #include <unistd.h>
@@ -139 +140 @@
   FILE * f=NULL;
   if (! path_only)
-    f = myfopen(path,mode);
+  {
+    struct stat statbuf;
+    if ((stat(path,&statbuf)==0)
+    && (S_ISREG(statbuf.st_mode)))
+      f = myfopen(path,mode);
+  }
   if (where!=NULL) strcpy(where,path);
   if ((*mode=='r') &&