Changeset 9ed245 in git

Timestamp:

May 12, 2005, 2:47:14 PM (19 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

accd6a78454959d4d30cfd2c78391dbc8490b47a

Parents:

6e1ea4ddc204fe0037c0f5bf7a91dde2f70a982f

Message:

*hannes: iplib:type_of_LIB -> kernel_mod_raw.cc


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

Location:

kernel

Files:

• mod_raw.cc (modified) (3 diffs)
• mod_raw.h (modified) (2 diffs)

kernel/mod_raw.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: mod_raw.cc,v 1.6 2005-05-12 11:51:32 Singular Exp $ */
+/* $Id: mod_raw.cc,v 1.7 2005-05-12 12:47:14 Singular Exp $ */
 /*
  * ABSTRACT: machine depend code for dynamic modules
@@ -13 +13 @@
 
 #include <stdio.h>
+#include <string.h>
+#include <ctype.h>
+#include <sys/stat.h>
+
 
 #include "mod2.h"
@@ -20 +24 @@
 #endif
 
-#if defined(HAVE_DL)
 #include "mod_raw.h"
 #include "febase.h"
+
+/*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*/
+#define BYTES_TO_CHECK 7
+
+lib_types type_of_LIB(char *newlib, char *libnamebuf)
+{
+  char        buf[BYTES_TO_CHECK+1];        /* one extra for terminating '\0' */
+  struct stat sb;
+  int nbytes = 0;
+  int ret;
+  lib_types LT=LT_NONE;
+
+  FILE * fp = feFopen( newlib, "r", libnamebuf, FALSE );
+  ret = stat(libnamebuf, &sb);
+
+  if (fp==NULL)
+  {
+    return LT_NOTFOUND;
+  }
+  if((sb.st_mode & S_IFMT) != S_IFREG)
+  {
+    goto lib_type_end;
+  }
+  if ((nbytes = fread((char *)buf, sizeof(char), BYTES_TO_CHECK, fp)) == -1)
+  {
+    goto lib_type_end;
+    /*NOTREACHED*/
+  }
+  if (nbytes == 0)
+    goto lib_type_end;
+  else
+  {
+    buf[nbytes++] = '\0';        /* null-terminate it */
+  }
+  if( (strncmp(buf, "\177ELF", 4)==0)) /* generic ELF */
+  {
+    LT = LT_ELF;
+    //omFree(newlib);
+    //newlib = omStrDup(libnamebuf);
+    goto lib_type_end;
+  }
+  if( (strncmp(buf, "\02\020\01\016\05\022@", 7)==0))
+  {
+    LT = LT_HPUX;
+    //omFree(newlib);
+    //newlib = omStrDup(libnamebuf);
+    goto lib_type_end;
+  }
+  if(isprint(buf[0]) || buf[0]=='\n')
+  { LT = LT_SINGULAR; goto lib_type_end; }
+
+  lib_type_end:
+  fclose(fp);
+  return LT;
+}
+/*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*/
+#if defined(HAVE_DL)
 
 /*****************************************************************************

kernel/mod_raw.h

@@ -4 +4 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: mod_raw.h,v 1.1.1.1 2003-10-06 12:15:57 Singular Exp $ */
+/* $Id: mod_raw.h,v 1.2 2005-05-12 12:47:14 Singular Exp $ */
 /*
  * ABSTRACT: machine depend code for dynamic modules
@@ -13 +13 @@
  *           dunl_close()
 */
+
+typedef enum { LT_NONE, LT_NOTFOUND, LT_SINGULAR, LT_ELF, LT_HPUX} lib_types;
+
+lib_types type_of_LIB(char *newlib, char *fullname);
 
 #if defined(HAVE_DL)