1 files changed, 75 insertions, 0 deletions
diff --git a/pcl/pgmisc.c b/pcl/pgmisc.c
new file mode 100644
index 000000000..58911aeb1
--- /dev/null
+++ b/pcl/pgmisc.c
@@ -0,0 +1,75 @@
+/* Portions Copyright (C) 2001 artofcode LLC.
+   Portions Copyright (C) 1996, 2001 Artifex Software Inc.
+   Portions Copyright (C) 1988, 2000 Aladdin Enterprises.
+   This software is based in part on the work of the Independent JPEG Group.
+   All Rights Reserved.
+
+   This software is distributed under license and may not be copied, modified
+   or distributed except as expressly authorized under the terms of that
+   license.  Refer to licensing information at http://www.artifex.com/ or
+   contact Artifex Software, Inc., 101 Lucas Valley Road #110,
+   San Rafael, CA  94903, (415)492-9861, for further information. */
+/*$Id$ */
+
+/* pgmisc.c */
+/* HP-GL/2 miscellaneous support */
+
+#include "pgmand.h"
+#include "pgmisc.h"
+
+bool
+current_units_out_of_range(hpgl_real_t x)
+{
+    const hpgl_real_t max = (1 << 30) - 1;
+    const hpgl_real_t min = -(1 << 30);
+    /* Not much to do about the floating point equality checking here
+       The problem is the coordinates should already be in an exact
+       (fixed) representation at this time but they are not so we make
+       due with the following. */
+    return (x < min || x > max);
+}
+
+void
+hpgl_set_lost_mode(hpgl_state_t *pgls, hpgl_lost_mode_t lost_mode)
+{
+	if ( lost_mode == hpgl_lost_mode_entered )
+	  {
+#ifdef INFINITE_LOOP
+	    hpgl_args_t args;
+	    /* raise the pen.  Note this should handle the pcl oddity
+               that when lost mode is cleared with an absolute PD we
+               draw a line from the last valid position to the first
+               args of pen down.  The following appends a moveto the
+               current point in the gs path */
+	    hpgl_args_setup(&args);
+	    hpgl_PU(&args, pgls);
+#endif
+#ifdef DEBUG
+	    dprintf("entering lost mode\n");
+#endif
+	  }
+	pgls->g.lost_mode = lost_mode;
+
+}
+
+#ifdef DEBUG
+
+/* Print an error message.  Note that function may be NULL. */
+/* This procedure must return its 'code' argument: see pgmisc.h. */
+int
+hpgl_print_error(const gs_memory_t *mem, 
+		 const char *function, const char *file, int line, int code)
+{
+	dprintf4("hpgl call failed\n\tcalled from: %s\n\tfile: %s\n\tline: %d\n\terror code: %d\n",
+		 (function == 0 ? "" : function), file, line, code);
+	hpgl_error();
+	return code;
+}
+
+/* called when there is a graphics error.  Keep a breakpoint on this function */
+void
+hpgl_error()
+{
+	return;
+}
+#endif