Changeset eb0a5bc in git


Ignore:
Timestamp:
May 2, 2005, 6:31:56 PM (18 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'f875bbaccd0831e36aaed09ff6adeb3eb45aeb94')
Children:
ab54a0fdd81251ac22552c9f061e33255615bcff
Parents:
47ec284c095176a99fb82c1ee239e162d30b658c
Message:
*hannes: code cleanup, LIB, LIB(), load use identical routines


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

Legend:

Unmodified
Added
Removed

  • Singular/fehelp.cc

    r47ec28 reb0a5bc  
    44/*
    55* ABSTRACT: help system
    6 * versin $Id: fehelp.cc,v 1.40 2005-04-22 15:14:02 Singular Exp $
     6* versin $Id: fehelp.cc,v 1.41 2005-05-02 16:31:55 Singular Exp $
    77*/
    88
    … …  
    233233#ifdef ix86_Win
    234234    // for the 6(!) default browsers
    235     heHelpBrowsers=(heBrowser_s*)omAlloc0(5*sizeof(heBrowser_s));
     235    heHelpBrowsers=(heBrowser_s*)omAlloc0(6*sizeof(heBrowser_s));
    236236#else
    237237    // for the 4(!) default browsers
    … …  
    642642static BOOLEAN heOnlineHelp(char* s)
    643643{
    644 #ifdef HAVE_NAMESPACES
    645   idhdl h, ns;
    646   iiname2hdl(s, &ns, &h);
    647 #else /* HAVE_NAMESPACES */
    648644#ifdef HAVE_NS
    649645  idhdl h=IDROOT->get(s,myynest);
    … …  
    651647  idhdl h=idroot->get(s,myynest);
    652648#endif /* HAVE_NS */
    653 #endif /* HAVE_NAMESPACES */
    654649
    655650  // try help for a procedure
    … …  
    701696
    702697    yylpin = fp;
    703 #ifdef HAVE_NAMESPACES
    704     yylplex(str, libnamebuf, &lib_style, IDROOT, FALSE, GET_INFO);
    705 #else /* HAVE_NAMESPACES */
    706698#ifdef HAVE_NS
    707699    yylplex(str, libnamebuf, &lib_style, IDROOT, FALSE, GET_INFO);
    … …  
    709701    yylplex(str, libnamebuf, &lib_style, GET_INFO);
    710702#endif /* HAVE_NS */
    711 #endif /* HAVE_NAMESPACES */
    712703    reinit_yylp();
    713704    if(lib_style == OLD_LIBSTYLE)
    … …  
    755746{
    756747  if (key == NULL || *key == '\0') return 0;
    757 #ifdef HAVE_NAMESPACES
    758   idhdl h, ns;
    759   iiname2hdl(key, &ns, &h);
    760 #else /* HAVE_NAMESPACES */
    761748#ifdef HAVE_NS
    762749  idhdl h=IDROOT->get(key,myynest);
    … …  
    764751  idhdl h=idroot->get(key,myynest);
    765752#endif /* HAVE_NS */
    766 #endif /* HAVE_NAMESPACES */
    767753  if ((h!=NULL) && (IDTYP(h)==PROC_CMD))
    768754  {
    … …  
    947933                     char *pp=strchr(sys,'#');
    948934                     if (pp!=NULL)
    949                      {
    950                        *pp='\0';
     935                     {
     936                       *pp='\0';
    951937                       i=strlen(sys);
    952                        memset(pp,0,MAX_SYSCMD_LEN-i);
    953                      } 
     938                       memset(pp,0,MAX_SYSCMD_LEN-i);
     939                     }
    954940                   }
    955941                   i=strlen(sys);

  • Singular/grammar.y

    r47ec28 reb0a5bc  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: grammar.y,v 1.105 2005-04-27 15:15:15 Singular Exp $ */
     4/* $Id: grammar.y,v 1.106 2005-05-02 16:31:55 Singular Exp $ */
    55/*
    66* ABSTRACT: SINGULAR shell grammatik
    … …  
    13861386
    13871387scriptcmd:
    1388          SYSVAR stringexpr
    1389           {
    1390             if (($1!=LIB_CMD)||(iiLibCmd($2)))
    1391             YYERROR;
     1388         SYSVAR expr
     1389          {
     1390            //if (($1!=LIB_CMD)||(iiLibCmd($2)))
     1391            if ($1==LIB_CMD)
     1392            {
     1393              sleftv tmp;
     1394              if(iiExprArith1(&tmp,&$2,LIB_CMD)) YYERROR;
     1395            }
     1396            else YYERROR;
    13921397          }
    13931398        ;

  • Singular/iplib.cc

    r47ec28 reb0a5bc  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: iplib.cc,v 1.107 2005-05-02 15:59:29 Singular Exp $ */
     4/* $Id: iplib.cc,v 1.108 2005-05-02 16:31:56 Singular Exp $ */
    55/*
    66* ABSTRACT: interpreter: LIB and help
    … …  
    871871 return LoadResult;
    872872}
    873 
    874873/*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*/
    875874static void iiCleanProcs(idhdl &root)

  • Singular/ipshell.h

    r47ec28 reb0a5bc  
    44*  Computer Algebra System SINGULAR     *
    55****************************************/
    6 /* $Id: ipshell.h,v 1.36 2005-01-24 14:59:13 Singular Exp $ */
     6/* $Id: ipshell.h,v 1.37 2005-05-02 16:31:56 Singular Exp $ */
    77/*
    88* ABSTRACT
    … …  
    191191void iiCheckPack(package &p);
    192192#endif
     193BOOLEAN iiTryLoadLib(leftv v, char *id);
    193194#endif
    194195
Note: See TracChangeset for help on using the changeset viewer.