Changeset 1bd25e in git


Ignore:
Timestamp:
Mar 26, 2001, 8:11:54 PM (22 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'spielwiese', '0d6b7fcd9813a1ca1ed4220cfa2b104b97a0a003')
Children:
f2dff0208c4fd2afbfbb1bca8b063e4f1377e89d
Parents:
48c165a608078d503fcbb6a62955ac6b94835a63
Message:
*hannes: LIB string


git-svn-id: file:///usr/local/Singular/svn/trunk@5341 2c84dea3-7e68-4137-9b89-c4e89433aadc
Location:
Singular
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • Singular/extra.cc

    r48c165a r1bd25e  
    22*  Computer Algebra System SINGULAR      *
    33*****************************************/
    4 /* $Id: extra.cc,v 1.164 2001-03-05 18:28:49 mschulze Exp $ */
     4/* $Id: extra.cc,v 1.165 2001-03-26 18:11:53 Singular Exp $ */
    55/*
    66* ABSTRACT: general interface to internals of Singular ("system" command)
    … …  
    975975    else
    976976#endif
     977#ifndef HAVE_NAMESPACES
    977978/*==================== lib ==================================*/
    978979    if(strcmp(sys_cmd,"LIB")==0)
    979980    {
    980 #ifdef HAVE_NAMESPACES
    981       idhdl hh=namespaceroot->get((char*)h->Data(),0);
    982 #else /* HAVE_NAMESPACES */
    983981      idhdl hh=idroot->get((char*)h->Data(),0);
    984 #endif /* HAVE_NAMESPACES */
    985982      if ((hh!=NULL)&&(IDTYP(hh)==PROC_CMD))
    986983      {
    … …  
    995992    }
    996993    else
     994#endif
    997995#ifdef HAVE_NAMESPACES
    998996/*==================== nspush ===================================*/

  • Singular/iplib.cc

    r48c165a r1bd25e  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: iplib.cc,v 1.80 2000-12-06 11:03:16 Singular Exp $ */
     4/* $Id: iplib.cc,v 1.81 2001-03-26 18:11:53 Singular Exp $ */
    55/*
    66* ABSTRACT: interpreter: LIB and help
    … …  
    685685  idhdl hl;
    686686
     687#ifndef HAVE_NAMESPACES
    687688  hl = IDROOT->get("LIB", 0);
    688689  if (hl == NULL || strstr(IDSTRING(hl), lib) == NULL) return FALSE;
    … …  
    706707    omFree(tmp);
    707708  }
     709#else
     710  char *plib = iiConvName(lib);
     711  hl = namespaceroot->get(plib,0, TRUE);
     712  if((hl==NULL) ||(IDTYP(hl)!=PACKAGE_CMD))
     713    return FALSE;
     714  strcpy(where,IDPACKAGE(hl)->libname);
     715  omFree(plib);
     716#endif
    708717  return TRUE;
    709718}
    … …  
    717726  char buf[256];
    718727  char libnamebuf[128];
    719   idhdl h,hl;
     728  idhdl h;
    720729  BOOLEAN LoadResult = TRUE;
    721730#ifdef HAVE_NAMESPACES
    722731  idhdl pl;
     732#else
     733  idhdl hl;
    723734#endif /* HAVE_NAMESPACES */
    724735  int lines = 1;
    … …  
    742753    return TRUE;
    743754  }
    744   hl = namespaceroot->get("LIB",0, TRUE);
    745755#else /* HAVE_NAMESPACES */
    746756  hl = idroot->get("LIB",0);
    747 #endif /* HAVE_NAMESPACES */
    748757  if (hl==NULL)
    749758  {
    750 #ifdef HAVE_NAMESPACES
    751     hl = enterid( omStrDup("LIB"),0, STRING_CMD,
    752                   &NSROOT(namespaceroot->root), FALSE );
    753 #else /* HAVE_NAMESPACES */
    754759    hl = enterid( omStrDup("LIB"),0, STRING_CMD, &idroot, FALSE );
    755 #endif /* HAVE_NAMESPACES */
    756760    IDSTRING(hl) = omStrDup(newlib);
    757761  }
    … …  
    800804#endif
    801805  }
     806#endif /* HAVE_NAMESPACES */
    802807#ifdef HAVE_TCL
    803808  if (tclmode)
    … …  
    10531058    goto load_modules_end;
    10541059  }
    1055 
     1060#ifdef HAVE_NAMESPACES
    10561061  pl = namespaceroot->get(plib,0, TRUE);
     1062#else
     1063  pl = IDROOT->get(plib,0);
     1064#endif
    10571065  if (pl==NULL)
    10581066  {
     1067#ifdef HAVE_NAMESPACES
    10591068    pl = enterid( omStrDup(plib),0, PACKAGE_CMD,
    10601069                  &NSROOT(namespaceroot->root), TRUE );
     1070#else
     1071    pl = enterid( omStrDup(plib),0, PACKAGE_CMD,
     1072                  TRUE );
     1073#endif
    10611074    IDPACKAGE(pl)->language = LANG_C;
    10621075    IDPACKAGE(pl)->libname=omStrDup(newlib);
    … …  
    12011214void libstack::push(char *p, char *libname)
    12021215{
    1203 #  ifdef HAVE_NAMESPACES
    1204   idhdl hl = namespaceroot->get("LIB",0, TRUE);
    1205 #  else /* HAVE_NAMESPACES */
     1216  libstackv lp;
     1217#ifndef HAVE_NAMESPACES
    12061218  idhdl hl = idroot->get("LIB",0);
    1207 #  endif /* HAVE_NAMESPACES */
    1208   libstackv lp;
    12091219  char *f = NULL;
    12101220  if(hl!=NULL) f = strstr(IDSTRING(hl),libname);
    12111221  if( (hl==NULL) || (f == NULL))
     1222#else
     1223  char dummy[128];
     1224  if (!iiLocateLib(libname, dummy))
     1225#endif
    12121226  {
    12131227    for(lp = this;lp!=NULL;lp=lp->next)

  • Singular/silink.cc

    r48c165a r1bd25e  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: silink.cc,v 1.39 2001-02-27 15:50:04 levandov Exp $ */
     4/* $Id: silink.cc,v 1.40 2001-03-26 18:11:54 Singular Exp $ */
    55
    66/*
    … …  
    621621    return DumpQring(fd, h, type_str);
    622622
     623#ifndef HAVE_NAMESPACES
    623624  // do not dump LIB string
    624625  if (type_id == STRING_CMD && strcmp("LIB", IDID(h)) == 0)
    625626    return FALSE;
     627#endif
    626628
    627629  // put type and name
Note: See TracChangeset for help on using the changeset viewer.