Permalink
Browse files

update.

  • Loading branch information...
1 parent 7cb935f commit 47a5fe40c4df20bcbd94e85e9ecec4b276812b92 morioka committed Dec 24, 1998
Showing with 20 additions and 20 deletions.
  1. +1 −8 ChangeLog
  2. +19 −12 poem-om.el
View
@@ -1,10 +1,3 @@
-1999-02-04 Katsumi Yamaoka <yamaoka@jpl.org>
-
- * poem-om.el (poem-ccl-decode-raw-text): Rewrite for fixing a bug
- that the last datum will be missed if the input data is not ended
- with `CRLF'.
- (poem-ccl-encode-raw-text-CRLF): Use `read-if'.
-
1998-12-24 MORIOKA Tomohiko <morioka@jaist.ac.jp>
* install.el (install-detect-elisp-directory): Avoid problem if
@@ -1267,7 +1260,7 @@
* APEL: Version 8.4 was released.
- * EMU-ELS: Don't use HIRAGANA LETTER A ($B$"(B) to detect character
+ * EMU-ELS: Don't use HIRAGANA LETTER A ($(B$"(B) to detect character
indexing (Emacs 20.3 or later).
1998-04-20 MORIOKA Tomohiko <morioka@jaist.ac.jp>
View
@@ -1,6 +1,6 @@
;;; poem-om.el --- poem implementation for Mule 1.* and Mule 2.*
-;; Copyright (C) 1995-1999 Free Software Foundation, Inc.
+;; Copyright (C) 1995,1996,1997,1998 Free Software Foundation, Inc.
;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
;; Katsumi Yamaoka <yamaoka@jpl.org>
@@ -51,14 +51,20 @@
(define-ccl-program poem-ccl-decode-raw-text
'(1
- (loop
- (read-if (r0 == ?\x0d)
- (read-if (r1 == ?\x0a)
- (write r1)
- ((write r0)
- (write r1)))
- (write r0))
- (repeat)))
+ ((read r1 r0)
+ (loop
+ (r2 = (r1 == ?\x0d))
+ (r2 &= (r0 == ?\x0a))
+ (if r2
+ ((write ?\x0a)
+ (read r1 r0)
+ (repeat))
+ ((write r1)
+ (r1 = (r0 + 0))
+ (read r0)
+ (repeat)
+ ))))
+ (write r1))
"Convert line-break code from CRLF to LF.")
(define-ccl-program poem-ccl-encode-raw-text
@@ -70,9 +76,10 @@
(define-ccl-program poem-ccl-encode-raw-text-CRLF
'(2
((loop
- (read-if (r0 == ?\x0a)
- (write "\x0d\x0a")
- (write r0))
+ (read r0)
+ (if (r0 == ?\x0a)
+ (write "\x0d\x0a")
+ (write r0))
(repeat))))
"Convert line-break code from LF to CRLF.")

0 comments on commit 47a5fe4

Please sign in to comment.