Changeset c3cb95 in git


Ignore:
Timestamp:
Sep 22, 1999, 4:42:33 PM (25 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'b52fc4b2495505785981d640dcf7eb3e456778ef')
Children:
acd64363f3a94a76f781aa7beb80a6853c595eba
Parents:
7b17cd27ba32c45609788f798f47448a335f99a5
Message:
*hannes: added cleanup in iiLoadLIB


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

Legend:

Unmodified
Added
Removed
  • Singular/iplib.cc

    r7b17cd2 rc3cb95  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: iplib.cc,v 1.60 1999-08-16 12:39:57 Singular Exp $ */
     4/* $Id: iplib.cc,v 1.61 1999-09-22 14:42:33 Singular Exp $ */
    55/*
    66* ABSTRACT: interpreter: LIB and help
     
    788788
    789789/*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*/
     790#ifndef HAVE_NAMESPACES
     791static void iiCleanProcs(idhdl &root)
     792{
     793  loop
     794  {
     795    if (root==NULL) return;
     796    if (IDTYP(root)==PROC_CMD)
     797    {
     798      procinfo pi=(procinfo)IDDATA(root);
     799      if ((pi->language == LANG_SINGULAR)
     800      && (pi->data.s.body_start == 0L))
     801      {
     802        // procinfo data incorrect:
     803        // - no proc body can start at the beginning of the file
     804        killhdl(&root);
     805      }
     806      continue;
     807    }
     808    root=IDNEXT(root);
     809  }
     810}
     811/*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*/
    790812static BOOLEAN iiLoadLIB(FILE *fp, char *libnamebuf, char*newlib,
    791813             idhdl pl, BOOLEAN autoexport, BOOLEAN tellerror)
     
    822844    reinit_yylp();
    823845    fclose( yylpin );
     846#ifdef HAVE_NAMESPACES
     847    iiCleanProcs(idroot);
     848#endif /* HAVE_NAMESPACES */
    824849    return TRUE;
    825850  }
Note: See TracChangeset for help on using the changeset viewer.