Changeset c3aa45 in git
- Timestamp:
- Apr 13, 2005, 5:01:53 PM (19 years ago)
- Branches:
- (u'spielwiese', 'd1b01e9d51ade4b46b745d3bada5c5f3696be3a8')
- Children:
- a5d9313fca387991af1e54dedb6e74ba1c1c64ba
- Parents:
- 8479a08a19d59224f0f20f0b7804e2af4b906631
- Location:
- factory
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
factory/variable.cc
r8479a0 rc3aa45 1 1 /* emacs edit mode for this file is -*- C++ -*- */ 2 /* $Id: variable.cc,v 1. 4 1997-06-19 12:21:52 schmidtExp $ */2 /* $Id: variable.cc,v 1.5 2005-04-13 15:01:53 Singular Exp $ */ 3 3 4 4 #include <config.h> … … 246 246 return default_name_ext; 247 247 } 248 249 int ExtensionLevel() 250 { 251 if( var_names_ext == 0) 252 return 0; 253 return strlen( var_names_ext )-1; 254 } 255 256 void 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 1 1 /* emacs edit mode for this file is -*- C++ -*- */ 2 /* $Id: variable.h,v 1. 3 1997-06-19 12:21:49 schmidtExp $ */2 /* $Id: variable.h,v 1.4 2005-04-13 15:01:53 Singular Exp $ */ 3 3 4 4 #ifndef INCL_VARIABLE_H … … 65 65 friend ostream & operator << ( ostream & os, const Variable & v ); 66 66 #endif /* NOSTREAMIO */ 67 friend void swap_levels(); 67 68 friend Variable rootOf( const CanonicalForm &, char name = '@' ); 68 69 }; … … 76 77 char getDefaultExtName(); 77 78 79 int ExtensionLevel(); 80 78 81 /*ENDPUBLIC*/ 79 82
Note: See TracChangeset
for help on using the changeset viewer.