date and time created 88/03/04 17:22:30 by jaap

SCCS-vsn: local/ditroff/ditroff.okeeffe/psfig/patches/ditroff.frag 1.1

diff --git a/usr/src/local/ditroff/ditroff.okeeffe/psfig/patches/ditroff.frag b/usr/src/local/ditroff/ditroff.okeeffe/psfig/patches/ditroff.frag
new file mode 100644 (file)
index 0000000..82f42b2
--- /dev/null
+++ b/usr/src/local/ditroff/ditroff.okeeffe/psfig/patches/ditroff.frag
@@ -0,0 +1,41 @@
+ptout0(pi)
+tchar  *pi;
+{
+       register short j, k, w;
+       short   z, dx, dy, dx2, dy2, n;
+       register tchar  i;
+       int outsize;    /* size of object being printed */
+
+       outsize = 1;    /* default */
+       i = *pi;
+       k = cbits(i);
+       if (ismot(i)) {
+               j = absmot(i);
+               if (isnmot(i))
+                       j = -j;
+               if (isvmot(i))
+                       lead += j;
+               else 
+                       esc += j;
+               return(outsize);
+       }
+       if (k == XON) {
+               int c;
+               if (xfont != mfont)
+                       ptfont();
+               if (xpts != mpts)
+                       ptps();
+               if (lead)
+                       ptlead();
+/* ADD these two lines vvv */
+               if (esc)
+                       ptesc();
+/*                     ^^^ */
+               fdprintf(ptid, "x X ");
+               for (j = 1; (c=cbits(pi[j])) != XOFF; j++)
+                       outascii(pi[j]);
+               oput('\n');
+               return j+1;
+       }
+                       ;
+