🚀 go-pugleaf

	$B$$$H$B$e$s$G$9!#AaB.$G$9$,%P%0%U%#%C%/%9$G$9!#(B

1) $B@55,I=8=$r;H$C$FCV49$9$k$H(Bcore$B$rEG$/!#(B
	$B5\(B$B:j(B@$BF|N)%=%U%H$5$s$+$iD:$-$^$7$?!#$I$&$b$"$j$,$H$&$4$6$$$^$9!#(B

----$B$3$3$+$i(B
*** regexp.c.orig	Fri Oct  2 13:25:02 1992
--- regexp.c	Fri Oct  2 13:28:13 1992
***************
*** 1023,1029 ****
  	}
  #else
  	for (nmatched = 0;
! 	     nmatched < to && *here && match1(re, *here, token, token2) == 0;
  	     nmatched++, here++)
  	{
  		if (iskanji(here[0]) && here[1])
--- 1023,1029 ----
  	}
  #else
  	for (nmatched = 0;
! 	     nmatched < to && *here && match1(re, here, token, token2) == 0;
  	     nmatched++, here++)
  	{
  		if (iskanji(here[0]) && here[1])
***************
*** 1079,1088 ****
--- 1079,1096 ----
  	if (re->bol)
  	{
  		/* must occur at BOL */
+ #if !KANJI
  		if ((re->first
  			&& match1(re, *(char *)str, re->first))/* wrong first letter? */
  		 || len < re->minlen			/* not long enough? */
  		 || match(re, (char *)str, prog, str))	/* doesn't match? */
+ #else
+ 		/*match1() never used, but for safe*/
+ 		if ((re->first
+ 			&& match1(re, str, re->first, 0))/* wrong first letter? */
+ 		 || len < re->minlen			/* not long enough? */
+ 		 || match(re, (char *)str, prog, str))	/* doesn't match? */
+ #endif
  			return 0;			/* THEN FAIL! */
  	}
  #ifndef CRUNCH
----$B$3$3$^$G(B


2) $B%I%-%e%a%s%H$K=q$$$F$"$k(Bftp site$B$NL>A0$,0c$&!#(B
	$B8m(B: lkbreth.foretune.co.jp
	$B@5(B: ftp.foretune.co.jp


	$B8fLBOG$r$*$+$1$$$?$7$^$7$?!#6`$s$GD{@5$5$;$FD:$-$^$9!#(B
--
$B$$$H$B$e$s(B@mt.cs.keio.ac.jp($B0KF#=c0lO:(B)
	$B7DXf5A=NBg3XM}9)3XIt(B $BEE5$9)3X2J(B/$B8&5f2J7W;;5!2J3X@l96(B $B=j8&5f<<(B
	itojun@mt.cs.keio.ac.jp		itojun@foretune.co.jp
	jinNet itojun			addNet itojun
	ESD/$B%(%s%2%k78?t8~>e0Q0w2q%=%U%H%&%'%"J,2J2q(B