Changeset 3460fe in git for modules/modgen/creat_top.cc

Timestamp:

Apr 11, 2006, 9:47:32 PM (18 years ago)

Author:

Anne Frühbis-Krüger <anne@…>

Branches:

(u'spielwiese', 'a719bcf0b8dbc648b128303a49777a094b57592c')

Children:

0fc5364aa53658193bfb5a149fe38f92ff61bec5

Parents:

0df49c2e400b9863057d102ed862846695394c7a

Message:

*anne: fixed filename generation bug for preparsed Singular library file
       (<modulename>.bin)


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

File:

• modules/modgen/creat_top.cc (modified) (2 diffs)

modules/modgen/creat_top.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: creat_top.cc,v 1.22 2005-05-20 14:49:59 Singular Exp $ */
+/* $Id: creat_top.cc,v 1.23 2006-04-11 19:47:32 anne Exp $ */
 /*
 * ABSTRACT: lib parsing
@@ -130 +130 @@
   fprintf(fp, "  idhdl h;\n");
   fprintf(fp, "  char * tempstr;\n");
+  fprintf(fp, "  char * tailstr;\n");
   fprintf(fp, "  FILE * binfp; \n"); 
   fprintf(fp, "  int ret;\n");
   fprintf(fp, "  struct stat sb; \n\n");
   fprintf(fp, "  tempstr = (char *)omAlloc(strlen(currPack->libname)+5);\n");
-  fprintf(fp, "  memset(tempstr,0,strlen(currPack->libname)+1);\n");
-  fprintf(fp, "  memcpy(tempstr,currPack->libname,strlen(currPack->libname));\n");
-  fprintf(fp, "  memcpy(tempstr+strlen(currPack->libname)-3,\".bin\",4);\n");
+  fprintf(fp, "  memset(tempstr,0,strlen(currPack->libname)+5);\n");
+  fprintf(fp, "  tailstr = strchr(currPack->libname,'.');\n");
+  fprintf(fp, "  memcpy(tempstr,currPack->libname,strlen(currPack->libname)-strlen(tailstr));\n");
+  fprintf(fp, "  memcpy(tempstr+strlen(tempstr),\".bin\",4);\n");
   fprintf(fp, "  ret=stat(tempstr,&sb);\n");
   fprintf(fp, "  if(ret==0) { \n");