Changeset 938688 in git for Singular/iplib.cc
- Timestamp:
- Nov 4, 2003, 5:43:50 PM (20 years ago)
- Branches:
- (u'spielwiese', 'b324714bf5073469800caef737deba1366fbd81f')
- Children:
- f2109c3093e6bb6775ec1f877280c8269b723df8
- Parents:
- 65dea380b7de468a9f3050f10c6134b1ee5e6257
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/iplib.cc
r65dea3 r938688 2 2 * Computer Algebra System SINGULAR * 3 3 ****************************************/ 4 /* $Id: iplib.cc,v 1.10 3 2003-07-25 14:04:08 levandovExp $ */4 /* $Id: iplib.cc,v 1.104 2003-11-04 16:43:29 Singular Exp $ */ 5 5 /* 6 6 * ABSTRACT: interpreter: LIB and help … … 131 131 int argstrlen=127; 132 132 *argstr='\0'; 133 int par=0; 133 134 do 134 135 { … … 136 137 s=e; // set s to the starting point of the arg 137 138 // and search for the end 138 while ((*e!=',')&&(*e!=')')&&(*e!='\0')) 139 { 139 while ((*e!=',') 140 &&((par!=0) || (*e!=')')) 141 &&(*e!='\0')) 142 { 143 if (*e=='(') par++; 144 else if (*e==')') par--; 140 145 args_found=args_found || (*e>' '); 141 146 e++;
Note: See TracChangeset
for help on using the changeset viewer.