Changeset c3aa45 in git


Ignore:
Timestamp:
Apr 13, 2005, 5:01:53 PM (19 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'spielwiese', 'd1b01e9d51ade4b46b745d3bada5c5f3696be3a8')
Children:
a5d9313fca387991af1e54dedb6e74ba1c1c64ba
Parents:
8479a08a19d59224f0f20f0b7804e2af4b906631
Message:
*hannes: bivar stuff


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

Legend:

Unmodified
Added
Removed
  • factory/variable.cc

    r8479a0 rc3aa45  
    11/* emacs edit mode for this file is -*- C++ -*- */
    2 /* $Id: variable.cc,v 1.4 1997-06-19 12:21:52 schmidt Exp $ */
     2/* $Id: variable.cc,v 1.5 2005-04-13 15:01:53 Singular Exp $ */
    33
    44#include <config.h>
     
    246246    return default_name_ext;
    247247}
     248
     249int ExtensionLevel()
     250{
     251  if( var_names_ext == 0)
     252    return 0;
     253  return strlen( var_names_ext )-1;
     254}
     255
     256void Reduce( bool on)
     257{
     258  int i;
     259  for (i=ExtensionLevel(); i>0;i--)
     260  {
     261    Variable l(-i);
     262    setReduce(l,on);
     263  }
     264}
  • factory/variable.h

    r8479a0 rc3aa45  
    11/* emacs edit mode for this file is -*- C++ -*- */
    2 /* $Id: variable.h,v 1.3 1997-06-19 12:21:49 schmidt Exp $ */
     2/* $Id: variable.h,v 1.4 2005-04-13 15:01:53 Singular Exp $ */
    33
    44#ifndef INCL_VARIABLE_H
     
    6565    friend ostream & operator << ( ostream & os, const Variable & v );
    6666#endif /* NOSTREAMIO */
     67    friend void swap_levels();
    6768    friend Variable rootOf( const CanonicalForm &, char name = '@' );
    6869};
     
    7677char getDefaultExtName();
    7778
     79int ExtensionLevel();
     80
    7881/*ENDPUBLIC*/
    7982
Note: See TracChangeset for help on using the changeset viewer.