texk 1

git-svn-id: svn://tug.org/texlive/trunk@1485 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 152 insertions, 0 deletions

diff --git a/Build/source/texk/dvipdfm/psimage.c b/Build/source/texk/dvipdfm/psimage.c
new file mode 100644
index 00000000000..4d6497d1d93
--- /dev/null
+++ b/Build/source/texk/dvipdfm/psimage.c
@@ -0,0 +1,152 @@
+/*  $Header$
+
+    This is dvipdfm, a DVI to PDF translator.
+    Copyright (C) 1998, 1999 by Mark A. Wicks
+
+    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 of the License, 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
+    
+    The author may be contacted via the e-mail address
+
+	mwicks@kettering.edu
+*/
+
+#include <stdio.h>
+#include "system.h"
+#include "config.h"
+#include "mem.h"
+#include "mfileio.h"
+#include "pdfobj.h"
+#include "psimage.h"
+#include "epdf.h"
+
+static char * distiller_template = NULL;
+
+void set_distiller_template (char *s) 
+{
+  distiller_template = NEW (strlen(s)+1, char);
+  strcpy (distiller_template, s);
+  return;
+}
+
+#define need(n) { unsigned k=(n); \
+                 if (size+k>max_size) { \
+                     max_size += k+128; \
+                     result=RENEW(result,max_size,char); \
+                       }}
+
+static char *last_dot (char *s)
+{
+  char *end;
+  end = s+strlen(s);
+  while (--end > s) {
+    if (*end == '.')
+      return end;
+  }
+  return NULL;
+}
+
+#ifdef HAVE_SYSTEM  /* No need to build a command line if we don't
+		       have system() */
+static char *build_command_line (char *psname, char *pdfname)
+{
+  char *result = NULL, *current;
+  int size = 0, max_size = 0;
+  if (distiller_template) {
+    need(strlen(distiller_template)+1);
+    for (current =distiller_template; *current != 0; current ++) {
+      if (*current == '%') {
+	switch (*(++current)) {
+	case 'o': /* Output file name */
+	  need(strlen(pdfname));
+	  strcpy (result+size, pdfname);
+	  size+=strlen(pdfname);
+	  break;
+	case 'i': /* Input filename */
+	  need(strlen(psname));
+	  strcpy (result+size, psname);
+	  size+=strlen(psname);
+	  break;
+	case 'b': 
+	  {
+	    char *last;
+	    need(strlen(psname));
+	    if ((last = last_dot (psname))) {
+	      strncpy (result+size, psname, last-psname);
+	      size += last-psname;
+	    } else {
+	      strcpy (result+size, psname);
+	      size += strlen(psname);
+	    }
+	  }
+	case 0:
+	  break;
+	case '%':
+	  result[size++] = '%';
+	}
+      } else {
+	result[size++] = *current;
+      }
+      result[size] = 0;
+    }
+  } else {
+    fprintf (stderr, "\nConfig file contains no template to perform PS -> PDF conversion\n");
+  }
+  return result;
+}
+#endif
+
+pdf_obj *ps_include (char *file_name, 
+		     struct xform_info *p,
+		     char *res_name, double x_user, double y_user)
+{
+#ifdef HAVE_SYSTEM
+  pdf_obj *result = NULL;
+  char *tmp, *cmd;
+  FILE *pdf_file = NULL;
+  /* Get a full qualified tmp name */
+  tmp = tmpnam (NULL);
+  if ((cmd = build_command_line (file_name, tmp))) {
+    if (!system (cmd) && (pdf_file = MFOPEN (tmp, FOPEN_RBIN_MODE))) {
+      result = pdf_include_page (pdf_file, p, res_name);
+    } else {
+      fprintf (stderr, "\nConversion via ->%s<- failed\n", cmd);
+    }
+    if (pdf_file) {
+      MFCLOSE (pdf_file);
+      remove (tmp);
+    }
+    RELEASE (cmd);
+  }
+  return result;
+#else
+  fprintf (stderr, "\n\nCannot include PS/EPS files unless you have and enable system() command.\n");
+  return NULL;
+#endif
+}
+
+int check_for_ps (FILE *image_file) 
+{
+  rewind (image_file);
+  mfgets (work_buffer, WORK_BUFFER_SIZE, image_file);
+  if (!strncmp (work_buffer, "%!", 2))
+    return 1;
+  return 0;
+}
+
+void psimage_close(void)
+{
+  if (distiller_template)
+    RELEASE (distiller_template);
+}