Lout 3.17.

git-svn-id: http://svn.savannah.nongnu.org/svn/lout/trunk@2 9365b830-b601-4143-9ba8-b4a8e2c3339c

1 files changed, 209 insertions, 0 deletions

diff --git a/z27.c b/z27.c
new file mode 100644
index 0000000..dc40a3a
--- /dev/null
+++ b/z27.c
@@ -0,0 +1,209 @@
+/*@z27.c:Debug Service:Debug flags@*******************************************/
+/*                                                                           */
+/*  THE LOUT DOCUMENT FORMATTING SYSTEM (VERSION 3.17)                       */
+/*  COPYRIGHT (C) 1991, 1999 Jeffrey H. Kingston                             */
+/*                                                                           */
+/*  Jeffrey H. Kingston (jeff@cs.usyd.edu.au)                                */
+/*  Basser Department of Computer Science                                    */
+/*  The University of Sydney 2006                                            */
+/*  AUSTRALIA                                                                */
+/*                                                                           */
+/*  This program is free software; you can redistribute it and/or modify     */
+/*  it under the terms of the GNU General Public License as published by     */
+/*  the Free Software Foundation; either Version 2, or (at your option)      */
+/*  any later version.                                                       */
+/*                                                                           */
+/*  This program is distributed in the hope that it will be useful,          */
+/*  but WITHOUT ANY WARRANTY; without even the implied warranty of           */
+/*  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the            */
+/*  GNU General Public License for more details.                             */
+/*                                                                           */
+/*  You should have received a copy of the GNU General Public License        */
+/*  along with this program; if not, write to the Free Software              */
+/*  Foundation, Inc., 59 Temple Place, Suite 330, Boston MA 02111-1307 USA   */
+/*                                                                           */
+/*  FILE:         z27.c                                                      */
+/*  MODULE:       Debug Service                                              */
+/*  EXTERNS:      dbg[], DebugInit(), Debug()                                */
+/*                ProfileOn(), ProfileOff(), ProfilePrint()                  */
+/*                                                                           */
+/*****************************************************************************/
+#include "externs.h"
+
+#if DEBUG_ON
+struct dbs  dbg[] = {
+    {"zz",    {0, 0, 0}},		/* - unused -                */
+    {"sp",    {0, 0, 0}},		/* Supervise                 */
+    {"la",    {0, 0, 0}},		/* Lexical Analyser          */
+    {"fs",    {0, 0, 0}},		/* File Service              */
+    {"ts",    {0, 0, 0}},		/* Token Service             */
+    {"rd",    {0, 0, 0}},		/* Read Definitions          */
+    {"op",    {0, 0, 0}},		/* Object Parser             */
+    {"os",    {0, 0, 0}},		/* Object Service            */
+    {"om",    {0, 0, 0}},		/* Object Manifest           */
+    {"ce",    {0, 0, 0}},		/* Closure Expansion         */
+    {"cr",    {0, 0, 0}},		/* Cross References          */
+    {"ss",    {0, 0, 0}},		/* Style Service             */
+    {"sf",    {0, 0, 0}},		/* Size Finder               */
+    {"ob",    {0, 0, 0}},		/* Object Breaking           */
+    {"of",    {0, 0, 0}},		/* Object Filling            */
+    {"sc",    {0, 0, 0}},		/* Size Constraints          */
+    {"sa",    {0, 0, 0}},		/* Size Adjustments          */
+    {"gw",    {0, 0, 0}},		/* Gap Widths                */
+    {"gt",    {0, 0, 0}},		/* Galley Transfer           */
+    {"ga",    {0, 0, 0}},		/* Galley Attaching          */
+    {"gf",    {0, 0, 0}},		/* Galley Flusher            */
+    {"gm",    {0, 0, 0}},		/* Galley Maker              */
+    {"gs",    {0, 0, 0}},		/* Galley Service            */
+    {"gp",    {0, 0, 0}},		/* Galley Printer            */
+    {"ps",    {0, 0, 0}},		/* Print Service             */
+    {"oe",    {0, 0, 0}},		/* Object Echo               */
+    {"es",    {0, 0, 0}},		/* Echo Service              */
+    {"zz",    {0, 0, 0}},		/* Debug Service (unused)    */
+    {"yy",    {0, 0, 0}},		/* Error Service             */
+    {"st",    {0, 0, 0}},		/* Symbol Table              */
+    {"su",    {0, 0, 0}},		/* Symbol Uses               */
+    {"ma",    {0, 0, 0}},		/* Memory Allocator          */
+    {"cs",    {0, 0, 0}},		/* Counter Service           */
+    {"bs",    {0, 0, 0}},		/* Database Service          */
+    {"rs",    {0, 0, 0}},		/* Rotation Service          */
+    {"tk",    {0, 0, 0}},		/* Time Keeper               */
+    {"hy",    {0, 0, 0}},		/* Hyphenation               */
+    {"ft",    {0, 0, 0}},		/* Font Tables               */
+    {"cm",    {0, 0, 0}},		/* Character Mappings        */
+    {"sh",    {0, 0, 0}},		/* String Handler            */
+    {"fh",    {0, 0, 0}},		/* Filter Handler            */
+    {"io",    {0, 0, 0}},		/* Object Input-Output       */
+    {"co",    {0, 0, 0}},		/* Colour Service            */
+    {"ls",    {0, 0, 0}},		/* Language Service          */
+    {"vh",    {0, 0, 0}},		/* Vertical Hyphenation      */
+    {"ex",    {0, 0, 0}},		/* External Sort             */
+    {"og",    {0, 0, 0}},		/* Optimal Galleys           */
+    {"et",    {0, 0, 0}},		/* Environment Table         */
+    {"pd",    {0, 0, 0}},		/* PDF Back End              */
+    {"pp",    {0, 0, 0}},		/* Profiling                 */
+    {"",      {0, 0, 0}},		/* any                       */
+};
+
+/*@::DebugInit(), Debug()@****************************************************/
+/*                                                                           */
+/*  DebugInit(str)                                                           */
+/*                                                                           */
+/*  Turn on the debug flag given by str.                                     */
+/*                                                                           */
+/*****************************************************************************/
+
+void DebugInit(FULL_CHAR *str)
+{ int j, urg;
+  for( urg = 0;  urg < 2 && str[urg+2] == CH_FLAG_DEBUG;  urg++ );
+  for( j = 1;  ;  j++ )
+  { if( StringEqual(AsciiToFull(dbg[j].flag), &str[urg+2]) )  break;
+    if( StringEqual(AsciiToFull(dbg[j].flag), STR_EMPTY) )
+      Error(27, 1, "unknown debug flag %s", FATAL, no_fpos, str);
+  }
+  for( ;  urg >= 0;  urg-- )  dbg[j].on[urg] = dbg[ANY].on[urg] = TRUE;
+} /* end DebugInit */
+
+
+/*****************************************************************************/
+/*                                                                           */
+/*  Debug(category, urgency, str, ...)                                       */
+/*                                                                           */
+/*  Print str on debug output, if the flag corresponding to the given        */
+/*  debug category and urgency is on.                                        */
+/*                                                                           */
+/*****************************************************************************/
+
+void Debug(int category, int urgency, char *str, ...)
+{ static BOOLEAN first_message = TRUE;
+  va_list ap;
+  if( first_message )
+  { fprintf(stderr, "\nLout Debug Output:\n");
+    first_message = FALSE;
+  }
+  fprintf(stderr, "%2s: ", dbg[category].flag);
+  va_start(ap, str);
+  vfprintf(stderr, str, ap);
+  va_end(ap);
+  fprintf(stderr, "\n");
+  fflush(stderr);
+} /* end Debug */
+
+
+/*@::ProfileOn(), ProfileOff(), ProfilePrint()@*******************************/
+/*                                                                           */
+/*  ProfileOn(str)                                                           */
+/*                                                                           */
+/*  Start profiling label str.                                               */
+/*                                                                           */
+/*****************************************************************************/
+#define MAXPROF	20
+#include <time.h>
+
+struct profrec
+{ char *label;			/* label of the profile              */
+  int calls;			/* number of calls with this label   */
+  long time;			/* total time of this label          */
+};
+
+static struct profrec profstack[MAXPROF];
+static struct profrec profstore[MAXPROF];
+static int proftop = 0, profsize = 0;
+
+void ProfileOn(char *str)
+{ int i;  time_t raw_time;
+  for( i = 0;  i < proftop;  i++ )
+  { if( strcmp(profstack[i].label, str) == 0 )
+    { for( i = 0;  i < proftop;  i++ )
+	fprintf(stderr, "profstack[%d] = %s\n", i, profstack[i].label);
+      assert1(FALSE, "ProfileOn: restarted", str);
+    }
+  }
+  assert(proftop < MAXPROF, "ProfileOn: overflow");
+  time(&raw_time);  profstack[proftop].label = str;
+  profstack[proftop++].time  = raw_time;
+} /* end ProfileOn */
+
+
+/*****************************************************************************/
+/*                                                                           */
+/*  ProfileOff(str)                                                          */
+/*                                                                           */
+/*  Stop profiling label str.                                                */
+/*                                                                           */
+/*****************************************************************************/
+
+void ProfileOff(char *str)
+{ int i;  time_t raw_time;
+  assert1(proftop > 0 && strcmp(profstack[proftop-1].label, str) == 0,
+    "ProfileOff: not current", str);
+  for( i = 0;  i < profsize && strcmp(profstore[i].label, str) != 0; i++ );
+  if( i >= profsize )
+  { profsize++;
+    assert(profsize < MAXPROF, "ProfileOff: overflow");
+    profstore[i].label = str;
+    profstore[i].calls = 0;
+    profstore[i].time  = 0;
+  }
+  time(&raw_time);  profstore[i].calls += 1;
+  profstore[i].time  += (raw_time - profstack[--proftop].time);
+} /* end ProfileOff */
+
+
+/*****************************************************************************/
+/*                                                                           */
+/*  ProfilePrint()                                                           */
+/*                                                                           */
+/*  Print results of profiling.                                              */
+/*                                                                           */
+/*****************************************************************************/
+
+void ProfilePrint(void)
+{ int i;
+  for( i = 0;  i < profsize;  i++ )
+  { fprintf(stderr, "Profile %-20s  %6ld secs, %3d calls, %6.2f secs/call\n",
+	profstore[i].label, profstore[i].time, profstore[i].calls,
+	(float) profstore[i].time / profstore[i].calls );
+  }
+} /* end ProfilePrint */
+#endif