🚀 go-pugleaf

$B$3$s$P$s$O!#JR;3!w#P#F#U$G$9!#(B

$B!t(B w3 $B$N7o$G$O!"%a!<%k$,?,@Z$l$K$J$C$F?=$7Lu$"$j$^$;$s$G$7$?(B

In article <86ogeo4453.fsf@localhost.my.domain>,
	fujisawa@wao.or.jp (Fujisawa Jiro) writes:

>lc-big5-1
>152
>lc-big5-2
>153

>$B$H$J$j$^$9$M!#2?$rI=$o$9?tCM$J$N$+!"$$$^$R$H$D<aA3$H$7$^$;$s$,(B....

$B!H(Blc$B!I$O(B leading character $B$NN,$G!"(Bmule $BJ8;z%3!<%I$N%W%j%U%#%C%/(B
$B%9%P%$%H$G$9!#(Bmule $B$N%P%C%U%!!<$dJ8;zNs$G$NJ8;zI=8=$O!"(B

    lc-XXX $BBh(B1$B%P%$%H(B [$BBh(B2$B%P%$%H(B]
    lc-prv-XX lc-XXX $BBh(B1$B%P%$%H(B [$BBh(B2$B%P%$%H(B]

$B$N$h$&$K$J$C$F$$$^$9!#(Blc-prv-XX $B$,;H$o$l$k$N$O!"(Blc-XXX $B$,(B 0xa0 
$B0J>e$N;~$G$9!#$3$l$O!"J8;z$N@hF,%P%$%H$,(B 0xa0 $BL$K~$K$J$k$h$&$K$9(B
$B$k$?$a$G$9!#(B

$B!t$3$l$K$h$j!"J8;z$N6h@Z$j$,4JC1$K8!=P$G$-$k$h$&$K$J$C$F$$$^$9(B

$B>\$7$/$O!"(Binfo $B$N(B Mule $B"*(B Character $B$r8+$F2<$5$$!#(B

>lc- M-[tab]

>$B$H$d$k$H!"8uJd$NCf$K(B cns $B$b=P$FMh$k$s$G$9$1$I!"$b$7$+$7$F2?$H$+$9$l$P(B 
>Mule $B$G$b(B cns $B$,07$($k$s$8$c(B.... $B07$($k$s$J$i!"4r$7$$$s$G$9$1$I(B....

$B$O$$!#(BCNS 11643 $B$b07$($^$9!#(B

$B$7$+$7!"(BMule 2.3 $B$G$O(B CNS 11643 $B$N$?$a$N(B coding-system $B$,Dj5A$5(B
$B$l$F$$$^$;$s$N$G!"(BISO 2022 $B7O$N(B coding-system $B$rN.MQ$7$J$1$l$P$J(B
$B$j$^$;$s!#(BEmacs 20 $B$G$b(B iso-2022-cn $B$J$I$7$+$J$$$h$&$G$9!#(B

EUC-TW $B$G(B CNS 11643 $B$r;H$&$?$a$K$O(B coding-system $B$rDj5A$7$J$1$l(B
$B$P$J$j$^$;$s!#(BMule 2.3 $BMQ$N(B coding-system $B$r:n$C$F$_$^$7$?!#$d$C(B
$B$D$1$G:n$C$?$N$G!"%(%i!<=hM}$,E,@Z$G$O$J$$$+$bCN$l$^$;$s!#(B(_ _)

$B!=!=!=!=$3$3$+$i!=!=!=!=$3$3$+$i!=!=!=!=$3$3$+$i!=!=!=!=$3$3$+$i!=!=!=!=(B
(define-ccl-program ccl-decode-euc-tw
  (`(1
     ((read r0)
      (loop
       (if (r0 < 128)
	   (write-read-repeat r0))
       (if (r0 >= ?\xa0)
	   (write (, lc-cns1))
	 (if (r0 != ?\x8e)		; invlid
	     (write-read-repeat r0)
	   ((read r0)
	    (if (r0 > ?\xa7)		; invlid
		((write ?\x8e)
		 (write-read-repeat r0))
	      (if (r0 > ?\xa2)
		  ((write (, lc-prv22))
		   (r0 += (, (- lc-cns3 ?\xa3))))
		(if (r0 < ?\xa1)	; invlid
		    ((write ?\x8e)
		     (write-read-repeat r0))
		  (r0 -= (, (- ?\xa1 lc-cns1))))))
	    (write r0)
	    (read r0))))
       (r0 |= ?\x80)
       (write r0)
       (read r0)
       (r0 |= ?\x80)
       (write-read-repeat r0))))))

(define-ccl-program ccl-encode-euc-tw
  (`(1
     ((read r0)
      (loop
       (if (r0 < 128)
	   (write-read-repeat r0))
       (if (r0 != (, lc-cns1))
	   ((if (r0 == (, lc-cns2))
		(r0 = ?\xa2)
	      ((if (r0 != (, lc-prv22))
		   (repeat))		; invalid ignore
	       (read r0)
	       (if (r0 < (, lc-cns3))
		   (repeat))		; invalid ignore
	       (if (r0 > (, lc-cns7))
		   (repeat))		; invalid ignore
	       (r0 -= (, (- lc-cns3 ?\xa3)))))
	    (write ?\x8e)
	    (write r0)))
       (read r0)
       (r0 |= ?\x80)
       (write r0)
       (read r0)
       (r0 |= ?\x80)
       (write-read-repeat r0))))))

(make-coding-system
 '*euc-tw* 4
 ?T "Coding-system used for EUC-TW"
 t
 (cons ccl-decode-euc-tw ccl-encode-euc-tw))
$B!=!=!=!=$3$3$^$G!=!=!=!=$3$3$^$G!=!=!=!=$3$3$^$G!=!=!=!=$3$3$^$G!=!=!=!=(B
--
$BJR;3!w#P#F#U(B