Changeset 938688 in git for Singular/iplib.cc

Timestamp:

Nov 4, 2003, 5:43:50 PM (20 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'b324714bf5073469800caef737deba1366fbd81f')

Children:

f2109c3093e6bb6775ec1f877280c8269b723df8

Parents:

65dea380b7de468a9f3050f10c6134b1ee5e6257

Message:

*hannes:2-1 new dir:kernel


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

File:

• Singular/iplib.cc (modified) (3 diffs)

Singular/iplib.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: iplib.cc,v 1.103 2003-07-25 14:04:08 levandov Exp $ */
+/* $Id: iplib.cc,v 1.104 2003-11-04 16:43:29 Singular Exp $ */
 /*
 * ABSTRACT: interpreter: LIB and help
@@ -131 +131 @@
   int argstrlen=127;
   *argstr='\0';
+  int par=0;
   do
   {
@@ -136 +137 @@
     s=e; // set s to the starting point of the arg
          // and search for the end
-    while ((*e!=',')&&(*e!=')')&&(*e!='\0'))
-    {
+    while ((*e!=',')
+    &&((par!=0) || (*e!=')'))
+    &&(*e!='\0'))
+    {
+      if (*e=='(') par++;
+      else if (*e==')') par--;
       args_found=args_found || (*e>' ');
       e++;