Changeset bf4997 in git for Singular/iplib.cc

Timestamp:

Mar 26, 2001, 11:35:58 PM (23 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

b36d3da67429c33f1ca29da748ec25b382515a07

Parents:

4fc824e31426994063664cd4b353fe70dbedb203

Message:

*hannes: casts


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

File:

• Singular/iplib.cc (modified) (6 diffs)

Singular/iplib.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: iplib.cc,v 1.83 2001-03-26 19:40:50 Singular Exp $ */
+/* $Id: iplib.cc,v 1.84 2001-03-26 21:35:58 Singular Exp $ */
 /*
 * ABSTRACT: interpreter: LIB and help
@@ -36 +36 @@
 #include "mod_raw.h"
 
-static char *iiConvName(char *p);
+static char *iiConvName(const char *p);
 #ifdef HAVE_LIBPARSER
 void yylprestart (FILE *input_file );
@@ -1030 +1030 @@
   int iiAddCproc(char *libname, char *procname, BOOLEAN pstatic,
                  BOOLEAN(*func)(leftv res, leftv v));
-  int (*fktn)(int(*iiAddCproc)(char *libname, char *procname,
+  typedef int (*fktn_t)(int(*iiAddCproc)(char *libname, char *procname,
                                BOOLEAN pstatic,
                                BOOLEAN(*func)(leftv res, leftv v)));
+  fktn_t fktn;
   idhdl pl;
   char *plib = iiConvName(newlib);
@@ -1044 +1045 @@
 
 
-  if(IsCmd(plib, &token))
+  if(IsCmd(plib, token))
   {
     Werror("'%s' is resered identifier\n", plib);
@@ -1084 +1085 @@
   else
   {
-    fktn = dynl_sym(IDPACKAGE(pl)->handle, "mod_init");
+    fktn = (fktn_t)dynl_sym(IDPACKAGE(pl)->handle, "mod_init");
     if( fktn!= NULL) (*fktn)(iiAddCproc);
     else Werror("mod_init: %s\n", dynl_error());
@@ -1120 +1121 @@
 //#endif
 
-static char *iiConvName(char *libname)
+static char *iiConvName(const char *libname)
 {
   char *tmpname = omStrDup(libname);