aboutsummaryrefslogtreecommitdiffstats
path: root/z27.c
diff options
context:
space:
mode:
authorJeffrey H. Kingston <jeff@it.usyd.edu.au>2010-09-14 19:21:41 +0000
committerJeffrey H. Kingston <jeff@it.usyd.edu.au>2010-09-14 19:21:41 +0000
commit71bdb35d52747e6d7d9f55df4524d57c2966be94 (patch)
tree480ee5eefccc40d5f3331cc52d66f722fd19bfb9 /z27.c
parentb41263ea7578fa9742486135c762803b52794105 (diff)
downloadlout-71bdb35d52747e6d7d9f55df4524d57c2966be94.tar.gz
Lout 3.17.
git-svn-id: http://svn.savannah.nongnu.org/svn/lout/trunk@2 9365b830-b601-4143-9ba8-b4a8e2c3339c
Diffstat (limited to 'z27.c')
-rw-r--r--z27.c209
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