From 57dd78056a65e7be7fafe0639b12b1431f6d7342 Mon Sep 17 00:00:00 2001
From: hanwen <hanwen>
Date: Mon, 6 Jun 2005 19:25:58 +0000
Subject: [PATCH] (gulp-port): rename from read. Don't redefine system
 primitives. (gulp-port): using read-string!/partial. We don't want to read an
 entire PS file  (GUILE 1.6 limits strings to 16M)

---
 ChangeLog         |  5 +++++
 scm/ps-to-png.scm | 15 +++++++++------
 2 files changed, 14 insertions(+), 6 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 82ca907f23..661e5e44cc 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,10 @@
 2005-06-06  Han-Wen Nienhuys  <hanwen@xs4all.nl>
 
+	* scm/ps-to-png.scm (gulp-port): rename from read. Don't redefine
+	system primitives.
+	(gulp-port): using read-string!/partial. We don't want to read an
+	entire PS file  (GUILE 1.6 limits strings to 16M) 
+
 	* scm/define-grobs.scm (all-grob-descriptions): remove arch-*
 	properties. Add font-interface. 
 
diff --git a/scm/ps-to-png.scm b/scm/ps-to-png.scm
index 20c69b1148..eab59e5404 100644
--- a/scm/ps-to-png.scm
+++ b/scm/ps-to-png.scm
@@ -9,7 +9,7 @@
 (use-modules
  (ice-9 optargs)
  (ice-9 regex)
- (ice-9 rdelim)
+ (ice-9 rw)
  (srfi srfi-1))
 
 ;; gettext wrapper for guile < 1.7.2
@@ -20,9 +20,12 @@
 (define (re-sub re sub string)
   (regexp-substitute/global #f re string 'pre sub 'post))
 
-(define (read port)
-  (let ((s (read-delimited "" port)))
-    (if (eof-object? s) "" s)))
+(define (gulp-port port how-much)
+  (let*
+      ((str (make-string how-much)))
+
+    (read-string!/partial str port)
+    str))
 
 (define (dir-listing dir-name)
   (define (dir-helper dir lst)
@@ -48,7 +51,7 @@
  -c quit 2>~S"
 			  file-name bbox))
 	 (status (system cmd))
-	 (s (read (open-file bbox "r")))
+	 (s (gulp-port (open-file bbox "r") 10240))
 	 (m (string-match BOUNDING_BOX_RE s)))
     (display m)
     (newline)
@@ -64,7 +67,7 @@
 	 (rename-page-1? #f)
 	 (verbose? #f))
    (let* ((base (basename (re-sub "\.e?ps" "" ps-name)))
-	  (header (read (open-file ps-name "r")))
+	  (header (gulp-port (open-file ps-name "r") 10240))
 	  (png1 (string-append base ".png"))
 	  (pngn (string-append base "-page%d.png"))
 	  (pngn-re (re-sub "%d" "[0-9]*" pngn))
-- 
2.39.5