Changeset b10eee in git for kernel/febase.cc

Timestamp:

Jan 13, 2005, 4:13:32 PM (19 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

2743d153ccc6b38e777e5dad0da2dde9b4af56f2

Parents:

ed97c1a4f90e91f9dd72603636d0dc0dc3b843c8

Message:

* hannes: newBuffer: febase.cc -> feread.cc


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

File:

• kernel/febase.cc (modified) (2 diffs)

kernel/febase.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: febase.cc,v 1.2 2003-12-11 16:28:51 Singular Exp $ */
+/* $Id: febase.cc,v 1.3 2005-01-13 15:13:31 Singular Exp $ */
 /*
 * ABSTRACT: i/o system
@@ -219 +219 @@
   //Print("----------------\n");
   return FALSE;
-}
-
-void newBuffer(char* s, feBufferTypes t, procinfo* pi, int lineno)
-{
-  currentVoice->Next();
-  //Print(":Buffer%d(%s):%s(%x)\n",
-  //  t,BT_name[t],pname,currentVoice);
-  if (pi!=NULL)
-  {
-    int l=strlen(pi->procname);
-    if (pi->libname!=NULL) l+=strlen(pi->libname);
-    currentVoice->filename = (char *)omAlloc(l+3);
-    *currentVoice->filename='\0';
-    if (pi->libname!=NULL) strcat(currentVoice->filename,pi->libname);
-    strcat(currentVoice->filename,"::");
-    strcat(currentVoice->filename,pi->procname);
-    currentVoice->pi       = pi;
-  }
-  else
-  {
-    currentVoice->filename = omStrDup(currentVoice->prev->filename);
-    currentVoice->pi       = currentVoice->prev->pi;
-  }
-  currentVoice->buffer   = s;
-  currentVoice->sw       = BI_buffer;
-  currentVoice->typ      = t;
-  switch (t)
-  {
-    case BT_execute:
-                     yylineno-=2;
-                     break;
-    case BT_proc:
-    case BT_example:
-                     currentVoice->oldb=myynewbuffer();
-                     yylineno = lineno+1;
-                     break;
-    case BT_if:
-    case BT_else:
-    case BT_break:
-                     yylineno = yy_blocklineno-1;
-                     break;
-    //case BT_file:
-    default:
-                     yylineno = 1;
-                     break;
-  }
-  //Print("start body (%s) at line %d\n",BT_name[t],yylineno);
-  currentVoice->start_lineno = yylineno;
-  //printf("start buffer typ %d\n",t);
-  //Voice *p=currentVoice;
-  //Print("-----------------\ncurr:");
-  //do
-  //{
-  //Print("voice fn:%s\n",p->filename);
-  //p=p->prev;
-  //}
-  //while (p!=NULL);
-  //Print("----------------\n");
 }