Changeset fca547 in git for Singular/iplib.cc

Timestamp:

Apr 3, 1998, 7:38:45 PM (26 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

5480dab448af565abfd5b8f28e1766de56df7613

Parents:

36ff0ee47861d9c243c573d5f915206fde045c9b

Message:

*** empty log message ***


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

File:

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

Singular/iplib.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: iplib.cc,v 1.12 1998-03-16 16:21:55 Singular Exp $ */
+/* $Id: iplib.cc,v 1.13 1998-04-03 17:38:40 Singular Exp $ */
 /*
 * ABSTRACT: interpreter: LIB and help
@@ -242 +242 @@
   }
   /* start interpreter ======================================*/
-  //Print("PStart <<%s>>\n",IDID(pn));
   myynest++;
+  //Print("%-*.*s PStart <<%s>>, level:%d\n",2*myynest,2*myynest," ",IDID(pn),myynest);
   err=yyparse();
   killlocals(myynest);
   myynest--;
   si_echo=old_echo;
-  //Print("PEnd <<%s>>\n",IDID(pn));
+  //Print("%-*.*s PEnd  <<%s>>, level:%d\n",2*myynest,2*myynest," ",IDID(pn),myynest);
 
   return err;
@@ -303 +303 @@
   if (traceit&TRACE_SHOW_PROC)
   {
-    if (traceit&TRACE_SHOW_LINENO) printf("\n");
-    printf("entering %s (level %d)\n",IDID(pn),myynest);
+    if (traceit&TRACE_SHOW_LINENO) PrintLn();
+    Print("entering%-*.*s %s (level %d)\n",myynest*2,myynest*2," ",IDID(pn),myynest);
   }
 #ifdef RDEBUG
@@ -332 +332 @@
   if (traceit&TRACE_SHOW_PROC)
   {
-    if (traceit&TRACE_SHOW_LINENO) printf("\n");
-    printf("leaving  %s (level %d)\n",IDID(pn),myynest);
+    if (traceit&TRACE_SHOW_LINENO) PrintLn();
+    Print("leaving %-*.*s %s (level %d)\n",myynest*2,myynest*2," ",IDID(pn),myynest);
   }
 #ifdef RDEBUG
@@ -722 +722 @@
 
 /*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*/
-int piShowProcList()
+void piShowProcList()
 {
   idhdl h;
@@ -754 +754 @@
 
 /*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*/
-char *iiLineNo(char *procname, int lineno)
-{
-  char buf[256];
-  idhdl pn = ggetid(procname);
-  procinfo *pi = IDPROC(pn);
-
-  sprintf(buf, "%s %3d\0", procname, lineno);
-  //sprintf(buf, "%s::%s %3d\0", pi->libname, pi->procname,
-  //  lineno + pi->data.s.body_lineno);
-  return(buf);
-}
+//char *iiLineNo(char *procname, int lineno)
+//{
+//  char buf[256];
+//  idhdl pn = ggetid(procname);
+//  procinfo *pi = IDPROC(pn);
+//
+//  sprintf(buf, "%s %3d\0", procname, lineno);
+//  //sprintf(buf, "%s::%s %3d\0", pi->libname, pi->procname,
+//  //  lineno + pi->data.s.body_lineno);
+//  return(buf);
+//}
 /*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*/
 #ifdef HAVE_LIBPARSER