Changeset 82a884b in git for Singular/febase.cc

Timestamp:

Jan 27, 1998, 3:10:15 PM (26 years ago)

Author:

Wilfred Pohl <pohl@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

1f3f0e80b4082b3102b965bbc5583208d5ba465a

Parents:

10b3a752e88f890c4be07205f527a9623b8284b7

Message:

feFopen for macintosh


git-svn-id: file:///usr/local/Singular/svn/trunk@1083 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.23 1997-11-18 16:30:52 Singular Exp $ */
+/* $Id: febase.cc,v 1.24 1998-01-27 14:10:15 pohl Exp $ */
 /*
 * ABSTRACT: i/o system
@@ -107 +107 @@
 {
   FILE * f=fopen(path,mode);
+#ifdef macintosh
+  if (f!=NULL)
+  {
+    if (where!=NULL) strcpy(where,path);
+    return f;
+  }
+  char *res;
+  int idat=strlen(SINGULAR_DATADIR),ipath=strlen(path);
+  char *env=getenv("SINGULARPATH");
+  int ienv=strlen(env), ii=ienv;
+  if (ii<idat) ii = idat;
+  if (ii==0)
+  {
+    if (useWerror)
+      Werror("cannot open `%s`",path);
+    return f;
+  }
+  res=(char*) AllocL(ii+ipath+1);
+  if (ienv!=0)
+  {
+    memcpy(res,env,ienv);
+    memcpy(res+ienv,path,ipath);
+    res[ienv+ipath]='\0';
+    f=fopen(res,mode);
+  }
+  if ((f==NULL)&&(idat!=0))
+  {
+    memcpy(res,SINGULAR_DATADIR,idat);
+    memcpy(res+idat,path,ipath);
+    res[idat+ipath]='\0';
+    f=fopen(res,mode);
+  }
+  if (f==NULL)
+  {
+    if (useWerror)
+      Werror("cannot open `%s`",res);
+  }
+  else if (where!=NULL)
+    strcpy(where,res);
+  FreeL(res);
+#else
   if (where!=NULL) strcpy(where,path);
   if ((*mode=='r') && (path[0]!=DIR_SEP)&&(path[0]!='.')
@@ -178 +219 @@
   if ((f==NULL)&&(useWerror))
     Werror("cannot open `%s`",path);
+#endif
   return f;
 }