trans-coord/gnun/server/gnun ChangeLog.sr-hr re... [sr-hr]

[Kaloian Doganov]

CVSROOT:        /sources/trans-coord
Module name:    trans-coord
Branch:         sr-hr
Changes by:     Kaloian Doganov <kaloian>       09/08/09 09:30:18

Modified files:
        gnun/server/gnun: ChangeLog.sr-hr recode-escape.in 
                          recode-unescape.in 

Log message:
        * recode-escape.in (main): Honour the `input' argument.  Handle
        empty streams gracefully.
        * recode-unescape.in (main): Handle empty streams gracefully.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/trans-coord/gnun/server/gnun/ChangeLog.sr-hr?cvsroot=trans-coord&only_with_tag=sr-hr&r1=1.1.2.6&r2=1.1.2.7
http://cvs.savannah.gnu.org/viewcvs/trans-coord/gnun/server/gnun/recode-escape.in?cvsroot=trans-coord&only_with_tag=sr-hr&r1=1.1.2.3&r2=1.1.2.4
http://cvs.savannah.gnu.org/viewcvs/trans-coord/gnun/server/gnun/recode-unescape.in?cvsroot=trans-coord&only_with_tag=sr-hr&r1=1.1.2.2&r2=1.1.2.3

Patches:
Index: ChangeLog.sr-hr
===================================================================
RCS file: 
/sources/trans-coord/trans-coord/gnun/server/gnun/Attic/ChangeLog.sr-hr,v
retrieving revision 1.1.2.6
retrieving revision 1.1.2.7
diff -u -b -r1.1.2.6 -r1.1.2.7
--- ChangeLog.sr-hr     7 Aug 2009 18:17:51 -0000       1.1.2.6
+++ ChangeLog.sr-hr     9 Aug 2009 09:30:15 -0000       1.1.2.7
@@ -1,3 +1,9 @@
+2009-08-09  Kaloian Doganov  <address@hidden>
+
+       * recode-escape.in (main): Honour the `input' argument.  Handle
+       empty streams gracefully.
+       * recode-unescape.in (main): Handle empty streams gracefully.
+
 2009-08-07  Kaloian Doganov  <address@hidden>
 
        * recode-escape.in (default-trans-attrib): Synchronize the list of

Index: recode-escape.in
===================================================================
RCS file: 
/sources/trans-coord/trans-coord/gnun/server/gnun/Attic/recode-escape.in,v
retrieving revision 1.1.2.3
retrieving revision 1.1.2.4
diff -u -b -r1.1.2.3 -r1.1.2.4
--- recode-escape.in    7 Aug 2009 18:17:51 -0000       1.1.2.3
+++ recode-escape.in    9 Aug 2009 09:30:17 -0000       1.1.2.4
@@ -146,7 +146,9 @@
       (escape-html-tags
        ; First of all process anything that looks like our escape
        ; syntax
-       (escape-escapes (read-delimited ""))
+       (escape-escapes
+       (let ((str (read-delimited "" input)))
+         (if (eof-object? str) "" str)))
        trans-attrib))))))
 
 ; Escape everything that looks like escape sequence in STR.

Index: recode-unescape.in
===================================================================
RCS file: 
/sources/trans-coord/trans-coord/gnun/server/gnun/Attic/recode-unescape.in,v
retrieving revision 1.1.2.2
retrieving revision 1.1.2.3
diff -u -b -r1.1.2.2 -r1.1.2.3
--- recode-unescape.in  4 Aug 2009 10:54:51 -0000       1.1.2.2
+++ recode-unescape.in  9 Aug 2009 09:30:17 -0000       1.1.2.3
@@ -61,7 +61,10 @@
          ((opt 'help #f) (help))
          (else
           (display
-           (recode-unescape (recode-unescape (read-delimited ""))))))))
+           (recode-unescape
+            (recode-unescape
+             (let ((str (read-delimited "")))
+               (if (eof-object? str) "" str)))))))))
 
 (define (die message)
   (display "recode-unescape: " (current-error-port))