[Mew-dist 08920] Re: 愛と悲しみの coding-system

[Kazu Yamamoto ( 山本和彦 )]

From: Shuichi Kitaguchi <kit at example.com>
Subject: [Mew-dist 08918] Re: 愛と悲しみの coding-system
Date: Fri, 21 May 1999 19:21:22 +0900

> かず> 	   '([1 23 47 346 13 18 250 10 18 1881 5 4421 19 10
> かず> 	        47 772 5892 49 58 0 0 14 772 49 22] .
> かず> 	        [1 4 14 775 22]))
>
> この部分は himi さんが書かれたのをいただいただけなので、
> 理解していないです...すいません。

こうみたいだね。行末は CRLF だと仮定している...

(define-ccl-program mew-cl-read
  '(1
    ((read r1 r0)
     (loop
      (r2 = (r1 == 13))
      (r7 = (r0 == 10))
      (r2 &= r7)
      (if r2
	  ((write 10)
	   (read r1 r0)
	   (repeat))
	((write r1)
	 (r1 = (r0 + 0))
	 (read r0)
	 (repeat)))))
    (write r1))
  "mew-cl-read")

(define-ccl-program mew-cl-write
  '(1
    ((read r0)
     (loop
      (write-read-repeat r0))))
  "mew-cl-write")

--かず