Changeset 49025e in git

Timestamp:

Apr 7, 1998, 7:50:20 PM (25 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', '00e2e9c41af3fde1273eb3633f4c0c7c3db2579d')

Children:

cf3ff4e9ea97293db0224e00108a04e2e7b79740

Parents:

cd2f5e2948555e751112c93ee435bc8faeb7025f

Message:

* hannes: cleanup in febase.inc


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

File:

• Singular/febase.inc (modified) (5 diffs)

Singular/febase.inc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: febase.inc,v 1.5 1998-03-31 09:00:42 Singular Exp $ */
+/* $Id: febase.inc,v 1.6 1998-04-07 17:50:20 Singular Exp $ */
 /*
 * ABSTRACT: handling of 'voices'
@@ -448 +448 @@
       if ((c<' ')
       || (c==';')
-      //|| (c=='(')
       || (c==')')
       || (c=='}')
@@ -457 +456 @@
       if(currentVoice->buffer[currentVoice->fptr]=='\0') break;
     }
-    //b[0]=currentVoice->buffer[currentVoice->fptr];
     b[i]='\0';
-    //b[1]='\0';
     if (currentVoice->sw==BI_buffer)
     {
-      //if (currentVoice->fptr==0)
       if (startfptr==0)
       {
@@ -476 +472 @@
         FreeL((ADDRESS)s);
       }
-      //else if (/*(currentVoice->fptr>0) &&*/
-      //(currentVoice->buffer[currentVoice->fptr-1]=='\n'))
       else if (/*(startfptr>0) &&*/
       (currentVoice->buffer[startfptr-1]=='\n'))
       {
-        //char *anf=currentVoice->buffer+currentVoice->fptr;
         char *anf=currentVoice->buffer+startfptr;
         char *ss=strchr(anf,'\n');
@@ -497 +490 @@
     currentVoice->fptr++;
     return i;
-    //return 1;
   }
   // no buffer there or e-o-buffer or eoln: