Changeset 2743d1 in git for kernel/febase.cc

Timestamp:

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

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

bded3a399a0db190d9194dce07cae62d77571598

Parents:

b10eee3894f8408747c04dfabcc6b2cda39ba263

Message:

*hannes: going back


git-svn-id: file:///usr/local/Singular/svn/trunk@7661 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.3 2005-01-13 15:13:31 Singular Exp $ */
+/* $Id: febase.cc,v 1.4 2005-01-13 15:22:23 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");
 }