Function load_modules_aux

Singular/iplib.cc:1190–1291

  dyn_modules = NULL;
}
BOOLEAN load_modules_aux(const char *newlib, char *fullname, BOOLEAN autoexport)
{
/*
  typedef int (*fktn_t)(int(*iiAddCproc)(const char *libname, const char *procname,
                               BOOLEAN pstatic,
                               BOOLEAN(*func)(leftv res, leftv v)));
*/
  SModulFunc_t fktn;
  idhdl pl;
  char *plib = iiConvName(newlib);
  BOOLEAN RET=TRUE;
  int token;
  int l=si_max((int)strlen(fullname),(int)strlen(newlib))+3;
  char *FullName=(char*)omAlloc0(l);

  if( *fullname != '/' &&  *fullname != '.' )
    snprintf(FullName,l, "./%s", newlib);
  else strncpy(FullName, fullname,l);


  if(IsCmd(plib, token))
  {
    Werror("'%s' is resered identifier\n", plib);
    goto load_modules_end;
  }
  pl = basePack->idroot->get(plib,0); /* packages only in top level
                                        (see enterid) */
  if ((pl!=NULL)
  &&(IDTYP(pl)==PACKAGE_CMD))
  {
    if(IDPACKAGE(pl)->language==LANG_C)
    {
      if (BVERBOSE(V_LOAD_LIB)) Warn( "%s already loaded as package", newlib);
      omFreeBinAddr(plib);
      return FALSE;
    }
    else if(IDPACKAGE(pl)->language==LANG_MIX)
    {
      if (BVERBOSE(V_LOAD_LIB)) Warn( "%s contain binary parts, cannot load", newlib);
      omFreeBinAddr(plib);
      return FALSE;
    }
  }
  else
  {
    pl = enterid( plib,0, PACKAGE_CMD, &IDROOT, TRUE );
    omFreeBinAddr(plib); /* enterid copied plib*/
    IDPACKAGE(pl)->libname=omStrDup(newlib);
  }
  IDPACKAGE(pl)->language = LANG_C;
  if (dynl_check_opened(FullName))
  {
    if (BVERBOSE(V_LOAD_LIB)) Warn( "%s already loaded as C library", fullname);
    omFreeSize(FullName,l);
    return FALSE;
  }
  if((IDPACKAGE(pl)->handle=dynl_open(FullName))==(void *)NULL)
  {